[cadil]

Подскажите, пожалуйста, как в рамках одной процедуры записать одной строкой выполение другой процедуры, механически не включая команд этой процедуры.
Например, после команды

Код:

MSWord.ActiveDocument.tables.item(1).cell(c,8).range.delete;

процедуры

Код:

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;
end
else
Timer3.Enabled := False;
end;

вставить выполнение одной строкой процедуры

Код:

procedure TForm1.Edit1DblClick(Sender: TObject);   //повторная загрузка ранее открытого рисунка
begin
 n:= 0;
 Form1.Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 ComboBox2.Text := '                  ';     //стирание записей описания дефекта
 ComboBox3.Text := '       ';
 ComboBox4.Text := '                  ';
end;

Если это можно сделать в принципе.
Спасибо!