var tbl, row, cell : TParagraph;
tbl := WPRichText1.Table;
if tbl=nil then
raise Exception.Create('not in table')
else
begin
row := tbl.Rows[1];
if row<>nil then
begin
cell := row.Cols[1];
if cell<>nil then
begin
cell.SetText('NEWTEXT');
WPRichText1.Refresh;
end;
end;
end;