También se puede hacer con el evento OnGetText del campo que tienes como Memo.
Código Delphi
[-]
procedure TForm1.IBDataSet1NOMBRE_CAMPO_MEMOGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := Copy(IBDataSet1NOMBRE_CAMPO_MEMO, 1, 10) + '[...]';
DisplayText := True; end;
De esta manera no es necesario crear un campo calculado.