Bağlantı Hatasını Tesbit Edip Tekrar Bağlanabilme

[ertemsoft]

mrb arkadaşlar

Anaformun OnCreate Eventinda aşağıdaki gibi database bağlanıyorum
ancak bağlanacağım server kapalı ise "tekrardene" label ına yönlendirip bağlantı
yapmayı tekrar deniyorum ancak Server açık olduğu halde bağlanmıyor
konu hakkında tecrübesi olan arkadaşlardan yardım rica ediyorum.

procedure Tanaformf.FormCreate(Sender: TObject);
Label tekrardene;
begin

tekrardene :

Try
dbm.dbertemsoft.Connected:=false;
dbm.IBDatabaseINI1.ReadFromINI;
dbm.IBDatabaseINI1.WriteToDatabase(dbm.dbertemsoft);
dbm.dbertemsoft.Connected:=true;
Except
hsw:=1;
end;

if hsw=1 then
begin
dbm.dbertemsoft.Connected:=false;
sleep(30000);
goto tekrar;
end;

end;

[mussimsek]

En kolayı adım adım çalıştırıp, debug ederek, nerde takıldığını görmek.

Kolay gelsin.