Fórum Alguem sabe como retornar a hora do Servidor Interbase #230679

//Pegar a Hora do Servidor IB6

select current_time
from rdb$database

procedure TFrmPrincipal.DataHoraServidor;
var
   SystemTime : TSystemTime;
begin
   with dmA.qryDataHora do
      begin
      Close;
      SQL.Text:=´SELECT CURRENT_DATE, CURRENT_TIME FROM RDB$DATABASE´;
      Open;
      end;

   With SystemTime do
      begin
      //Definindo a data do sistema
      wYear:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,7,4));
      wMonth:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,4,2));
      wDay:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,1,2));
      //Definindo a hora do sistema
      wHour:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,1,2)); //hora
      wMinute:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,4,2)); //minutos
      wSecond:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,7,2)); //segundos
   end;

   //Colocar a data e hora do sistema
   SetLocalTime(SystemTime);
end;