mysql no delphi

[specdev]

como fica isso com mysql!!!!!!!tenho o seguinte : delphi com interbase

function TdtmSystem.HoraBD: TTime;

var qryTmp: TSQLQuery;

begin

// Retorna a DATA do Banco de dados...

qryTmp := TSQLQuery.Create(Self);

try

qryTmp.SQLConnection := dtmConexao.SqlCnConexaoBD;

qryTmp.SQL.Text := 'SELECT CURRENT_DATE HORA FROM RDB$DATABASE';

qryTmp.Open;

Result := qryTmp.FieldByName('HORA').Value;

qryTmp.Close;

finally

qryTmp.Free;

end;

end;

como fica isso com mysql!!!!!!!

[Denis Courcy]

Deste modo funcionará.

function TdtmSystem.HoraBD: DateTime;
var qryTmp: TSQLQuery;
begin
   // Retorna a DATA do Banco de dados...
   qryTmp := TSQLQuery.Create(Self);
   try
      qryTmp.SQLConnection := dtmConexao.SqlCnConexaoBD;
      qryTmp.SQL.Text := 'SELECT NOW() AS HORA';
      qryTmp.Open;
      Result := qryTmp.FieldByName('HORA').DateTime;
      qryTmp.Close;
   finally
      qryTmp.Free;
   end;
end;