Error al tratar de obtener la fecha desde el servidor

[ilichhernandez]

Estimados colegas, estoy tratando de recuperar la fecha del servidor mediante el siguiente codigo :

Código Delphi [-]
Procedure cambiar_mes();
var test : TDateTime; 
Begin 
dm1.IBQuery1.SQL.Clear; 
dm1.IBQuery1.SQL.text := 'SELECT current_date FROM RDB$Database';
dm1.IBQuery1.Open;
test :=dm1.IBQuery1.Fields[0].AsDateTime;
showmessage(datetostr(test));
End;

y me lanza el siguiente error,

---------------------------
Debugger Exception Notification
---------------------------
Project UOT.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -104
Client SQL dialect 1 does not support reference to DATE datatype'.
---------------------------
Break Continue Help
---------------------------

Alguien tiene idea de como solucionarlo.... he probado varias sentencias similares que he encontrado pero aun no logro obtener la fecha ....

Agradeceria si alguien me comenta como obtener ese dato.....

Gracias.