Ciao a tutti,
ho un programmino che effettua la connessione ad un dispositivo tramite TCP e per attivare la connessione utilizzo l'evento OnClick di un'immagine. Dato che a volte il processo di connessione richiede anche due secondi, vorrei far cambiare il cursore del mouse alla pressione del tasto. Il codice, all'interno dell'evento OnClick, a grandi linee è così:

Application.ProcessMessages;
Image.Cursor := crHourGlass;
TCPClient.Connect;
Application.ProcessMessages;
Image.Cursor := crDefault;

Il problema è che nonostante siano inseriti i cambi di cursore e gli Application.ProcessMessages, non vengono visualizzati ed è come se non ci fossero; eppure durante la connessione capita che rimanga appeso per qualche secondo in attesa di connettersi. Come posso risolvere?

Grazie