[Alegun]

Сократите код немного

Код:

...

for i :=2 to 8 do
MSWord.ActiveDocument.tables.item(1).cell(c,i).range.delete;
end else...

а по вопросу - создайте отдельную процедуру и используйте её потом где угодно

Код:

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

Пример использования

Код:

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
EdDblClk;
end;