Puedes usar los eventos OnGetText y OnSetText del campo.
Algo así:
Código Delphi
[-]
procedure TForm1.Table1PorcentajeGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := FloatToStr(Sender.asFloat * 100) + '%'
end;
procedure TForm1.Table1PorcentajeSetText(Sender: TField;
const Text: String);
begin
Sender.AsFloat := StrToFloat(Text) / 100;
end;