[juank1971]

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;