if F_Main.ICQCl.LoggedIn = True then
ICQTox_Disconnect else
ICQTox_Login(StrToInt(Edit_Login.Text),Edit_Pass.T ext,0);

Чёто тип такого я сам писал ток давно))