Ado Connection Bağlantı Kesilmesi

[lom]

Merhabalar ,
Bilgi ekranı çalışması yapmaktayım. Wireless aracılığı ile ağdan bir serverdaki MsSql database'ime bağlanmaktayım. Ara sıra wireless bağlantısı kapanıp tekrar açılıyor. Bu durumda programda Ado Connection bağlanamayınca hata alıyorum. Exe'yi kapatıp tekrar açmam gerekiyor. Bağlantı koptuğunda ekrana bir mesaj verdirmek istiyorum. Arka planda da bağlantıyı tekrar sağlamaya çalışsın istiyorum.
Yardımcı olursanız sevinirim. İyi çalışmalar.

[conari]

procedure TMainForm.AdoDBAfterDisconnect(Sender: TObject);
begin
MainForm.StatusBar1.Panels[2].Text:='Bağlantı Kesildi.';
MainForm.StatusBar1.Panels[3].Text:='Bağlı Kullanıcı Yok.';
vsvsvsvsvss
end;