table-Cell shall not be higher

[j&b]

I have 3 tables in a TDBRichViewEdit.

One of these tables has only one cell where I can insert 5 lines.
When I insert a 6. row (by pressing RETURN at the end of the 5. line), table will be higher.
But I want that this Cell (of this table) shall not be higher , so that the other lines of the memo do not get down

[j&b]

I think I have a solution:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (memo.CanChange) and (memo.GetCurrentItemEx(TRVTableItemInfo, rve, TCustomRVItemInfo(rveTable))) then begin
if rvtoIgnoreContentHeight in rveTable.Options then
rveTable.Options:=rveTable.Options-[rvtoIgnoreContentHeight]
else rveTable.Options:=rveTable.Options+[rvtoIgnoreContentHeight];
memo.change;
end;
end;