procedure TForm1.FieldGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if ((Sender As TField).DataType = ftDateTime)
and (Sender.Value <> Null) then
Text := FormatDatetime('yyyy-mm-dd hh:nn', (Sender As TField).AsDateTime)
else Text := Sender.AsString;
end;