Hola GerTorresM.
No decís con que base de datos estás trabajando, por lo que lamento no poder ser más específico.
Te escribo un ejemplo simple con BDE.
Código:
var
tbCalc: TStringField;
procedure TForm1.FormCreate(Sender: TObject);
begin
tbCalc:= TStringField.Create(Self);
with tbCalc do
begin
Name := 'tbCalc';
FieldKind:= fkCalculated;
FieldName:= 'tbCalc';
DisplayLabel:= 'CALCULADO';
Size := 30;
DataSet := Table1;
end;
Table1.OnCalcFields:= Table1CalcFields;
Table1.Open;
end;
Saludos.