creo esto me funciona correcto lo que quiero :
Código Delphi
[-]
procedure TDM.QueryVALORGetText(Sender: TField; var Text: string; DisplayText: boolean);
begin
if QueryCODIGO.AsString = 'P1' then
begin
if Sender.AsString <> '' then
Text := Format('%8.2f', [Sender.AsFloat]);
end
else
Text := Sender.AsString;
end;