[DarKraZY]

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; // Esto es importante para que salga
end;

De esta manera no es necesario crear un campo calculado.