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;
En el evento gettext del campo puedes decidir que valor mostrar.
Saludos