مشكله عند اقلاع client

[galag8]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله تعالي وبركاته

عندي مشكله في كود برنامج كلاينت
انو لو الكلاينت بدا قبل السيرفر اي ان برنامج السيرفر لم يبدا بعد يكون هناك خطا
انا عاوز الكلاينت لما يبدا وما يلاقي السيرفر يعمل كونكت كل خمس ثواني الي ان يبدا السيرفر



وهذا هو الكود
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:=Edit1.Text;
ClientSocket1.Active:=True;

end;


وشكرا

[محمد عبد العزيز]

يمكنك ان تستخدم الحدث OnError للClientSocket لتفعيل Timer
والTimer يستدعي زر محاولة الاتصال كل 5 ثواني
مثال بسيط مرفق
والسلام عليكم ورحمة الله

[galag8]

جزاك الله خيرا كان الله في عونك مادمت في عوننا والى الامام وشكرا