Client Programımda Çözemediğim Hata

[delficim]

button click olayı


procedure TForm1.Button3Click(Sender: TObject);
begin
try
idtcpclient1.Host:=edit1.Text;
IdTCPClient1.Connect();
except
end;
end;


ancak edit1.text deki host-server yazılımı açık değilse programım kilitleniyor.
ben bu durumda hata değil bir uyarı vermesini istiyorum.

try except kodunu kullandım
kilitlenmeyi aşamadım

IdTCPClient1
IdAntiFreeze1
bileşen olarak bunları kullanıyorum

şimdiden teşekkürler

[G.Arkas]

Kod: Tümünü seç

if IdTcpClient1.Connected then
ShowMessage('Bağlantı sağlandı')
else
ShowMessage('Bağlantı başarısız.')

[delficim]

çok teşekkürler
eğer şartınıda denemiştim.
lakin benim hatam timer kodlarıymış.