Написха следния код, но за мое съжаление нито дава грешка, нито променя Excel файла (значи нищо не прави):
try XLS_Book := GetActiveOleObject('Excel.Application'); except try // ако няма инстанция, опит да се създаде нов Excel обект XLS_Book := CreateOleObject('Excel.Application'); except ShowMessage('Не може да се стартира Ексел / Excel не е инсталиран ?'); Exit; end; end; S := '1.xls'; XLS_Book.Workbooks.Open(S); IR := GetLastLine(1); Edit1.Text := IntToStr(IR); for I := 1 to IR do begin if (XLS_Book.Cells[I, 1].Value = Edit_A_.Text) then XLS_Book.Cells[I, 2].Value := Variant(Edit_B_.Text); end; XLS_Book.Workbooks[1].Save; XLS_Book.Workbooks[1].Close;