RichView заполнение таблицы без переноса каретки

[doktor255]

Помогите пожалуйста с заполнение таблицы. Допустим у нас имеется таблица из 1 строки и 2х столбцов.

uses
RichView, RVEdit, RVTable, RVItem;

Type
TTable = Record
Text: TRVTableItemInfo;
Row: TRVTableRow;
Data: TRVTableCellData;
End;

procedure TForm1.Button1Click(Sender: TObject);
var table:TTable;
item :TCustomRVitemInfo;
begin
item := TCustomRVitemInfo.Create(form1);
  Table.Text := TRVTableItemInfo.Create(RichViewEdit1.RVData);
  Table.Text.Rows.Clear;
  RichViewEdit1.AddItem('', Table.Text);
  Table.Row := Table.Text.Rows.Add(0);//добавили в таблицу строку
  Table.Data := Table.Row.Add;//добавили в таблицу столбец
  Table.Data.AddTextNL('111',0,0,0);//добавили в ячейку таблицы текст с переносом каретки
  Table.Data := Table.Row.Add;//добавили в таблицу столбец
  Table.Data.Add...//тут нужно вставить в ячейку текст без переноса каретки
  RichViewEdit1.Format;
end;

Если в обычном форматировании текста у нас есть процедура
ADD(const s: string; StyleNo: integer);
То в таблице такой процедуры нет. Как добавить строку без переноса каретки?

И следом второй вопрос. Как отрегулировать ширину столбцов согласно длине строк? Строки могут содержать всё что угодно.