[Alegun]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 exApp: Variant;
begin
 exApp:= CreateOleObject('Excel.Application');
 exApp.WorkBooks.Open('Test.xls');

 exApp.Worksheets.Item['Лист1'].Range['C10']:= Edit1.Text;
 exApp.Worksheets.Item['Лист1'].Range['H8'] := Edit1.Text;
 exApp.Worksheets.Item['Лист2'].Range['N28']:= Edit1.Text;
 exApp.Worksheets.Item['Лист1'].Range['B20']:= Edit2.Text;
 exApp.Worksheets.Item['Лист3'].Range['F20']:= Edit2.Text;
 exApp.Worksheets.Item['Лист2'].Range['D2'] := Edit3.Text;
end;