Código Delphi
[-]adohistory.Close;
adohistory.SQL.Clear;
adohistory.Sql.Add('select '+params+' from ts.history where convert(varchar(10),datestamp,110) ='+chr(39)+ formatdatemenu +chr(39)+'');
adohistory.Sql.Add('order by datestamp desc') ;
adohistory.Prepared;
adohistory.Open;
(adohistory.FieldByName('NombreDelCampo') AS TStringField).DisplayFormat:= '123456########5678';
Tal vez eso te ayude.
En Firebird debe realizarse cada vez que se abre el query, no sé cómo sea en ADO.
Salud.