Excepción EOleException, Mysql has gone away...

[Slash]

Empezado por rruz

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not ADOConnection1.Connected then
begin
ADOConnection1.Connected:=True;
ADODataSet1.Close;
ADODataSet1.CommandText:=('SELECT curtime()');
ADODataSet1.Open;
label1.Caption:=ADODataSet1.Recordset.Fields.Item[0].value;
end else
begin
ADOConnection1.Open
end;
end;

Con esto debería funcionar, fijate donde pones el "ADOConnection1.Open".
Podes usarlo en la excepción en vez de en el else. Además como lo tenes en un timer cuando se levante la DB se va a volver a conectar sin problemas. Si queres, para que no te salga el cartel de error podes poner todo el bloque en una excepcion y si no se conecta no haces nada, total volves a intentar cuando se ejecute el timer.
Saludos y cualquier duda prgunta tranquilo.