[Casimiro Notevi]

Con la propuesta anterior es indiferente la posición.

Código Delphi [-]
procedure TForm1.UnCampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if sender.AsCurrency=0.0 then
    text:=''
  else
    text:=sender.AsString;
end;