Delphi и Excel

[FLuFFy^^]

Ребята помоги, написать процедуру для кнопки что бы могла произойти корректировки в файл Excel. То есть есть услуга и можно изменять стоимость выполненных работ. А то пушу и не что не получается.

[eval]

набор слов ...

[Человек_Борща]

Показывай как пушишь.

[FLuFFy^^]

procedure TForm3.Button1Click(Sender: TObject);
var
i,j:integer;
s:string;
begin
if ((Edit1.text='') or (Edit2.text=''))
then  ShowMessage('Заполните все поля')
else begin
i:=2;
j:=1;
While j=1 do begin
s:=sheet.item['Услуги'].Cells[i,1].text ;
i := i + 1;
if s ='' then j:=2;
end;
i:=i-1;
sheet.item['Услуги'].Cells[i,1]:=Edit1.text;
sheet.item['Услуги'].Cells[i,2]:=Edit2.text;
ShowMessage('Данные успешно занесены в таблицу');
end

Вот ошибка Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process stopped. Use Step or Run to continue.

[Stilet]

sheet.item['Услуги'].Cells[i,1].text:=Edit1.text;

не?