procedure TForm1.Table1CalcGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text:=Sender.AsString; end;