Fórum P Verificar Conexão #324314

Quero Fazer uma tela de login que verifique a conexão. eu tentei assim:


Try
ADOConnection1.Connected := True;
ADOConnection1.Open;
Except
end;

If
ADOConnection1.Connected = True then
begin
PanLogin1.Visible := True;
PanLogin2.Visible := True;
ImgLogin.Visible := True;
lblLogin.Visible := True;
txtLogin.Visible := True;
btnLogin.Visible := True;
end

else begin
PanFalha1.Visible := True;
PanFalha2.Visible := True;
ImgFalha.Visible := True;
lblFalha.Visible:= True;
end


Quando a conexão ta ativa. ok funciona, mas quando n tá da erro.

o que eu poderia fazer??