[[rruz]]

intenta esto

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

Saludos