[icWasya]

Ну если я правильно понял, то например так

Код:

procedure TForm1.Timer3Timer(Sender: TObject);      //очистка таблицы от записей
begin
c:= c+1;
r:=table1.Rows.Count;
if ((c < r) or (c = r))  then
begin
MSWord.ActiveDocument.tables.item(1).cell(c,2).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,3).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,4).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,5).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,6).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,7).range.delete;
MSWord.ActiveDocument.tables.item(1).cell(c,8).range.delete;
Edit1DblClick(nil);//<<<===------ вон
end
else
Timer3.Enabled := False;
end;

А если не так, но напишите что у Вас получается БЕЗ того, что Вы спрашиваете, и Что Вы хотите получить?