[Dead_Gigabit]

Всем здраствуйте, я новичок передомной стоит такая задача: есть фаилик с расширением .xls который запонен всеми необходимыми данными, но в нем постоянно меняються 4 ячейки, необходимо, с помщью проги их изменять и сохранять в файле, Полазел в инете нашел подходящий код, но что то не так :

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
 XL, WB, Sheet : Variant;
begin
 XL := CreateOLEObject('Excel.Application');
 XL.Application.EnableEvents := false;
 WB := XL.Workbooks.Add('C:\ARB\Doc\WorkBook.xls');
Sheet := WB.ActiveSheet;
  
DateTimePicker1.date:= Sheet.Cells[4, 1];
Edit1.Text:= Sheet.Cells[12, 91];
Edit2.Text:= Sheet.Cells[15, 20];
Edit3.Text:= heet.Cells[19, 91];

XL.Quit;
end;

Admin: Не забываем про теги!

Подскажите что не так делаю, и как реализовываеться сохранение фаила, если можно поподробней, заранее спасибо...