[Delphi+Excel] Пояснение кода

[Fiery Fox]

uses
  ComObj;

const
  EXCEL_FILE_EXT = '.xls';

function TForm10.GetExcelFileName: String;
begin
  Result := ExtractFilePath(Application.ExeName) + 'exel'+inttostr(colv);

  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then
    Result := Result + EXCEL_FILE_EXT;
end;
procedure TForm10.Button2Click(Sender: TObject);

var
 ExcelApp, Sheet: variant;
 Col, Row: Word;
begin
inc(colv);
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible := false;

    ExcelApp.Workbooks.Add;
    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];

    for Col := 0 to StringGrid1.ColCount - 1 do
      for Row := 0 to StringGrid1.RowCount - 1 do
        Sheet.Cells[Row + 1, Col + 1] := StringGrid1.Cells[Col, Row];

    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);

    ShowMessage('Записано');
  finally
    ExcelApp.Application.Quit;
    ExcelApp := unassigned;
    Sheet := Unassigned;
  end;
end;

Код взят от сюда:
http://programmersforum.ru/showthread.php?t=57907

Можете пожалуйста мне его пояснить?
Откомментировать что делается какой строкой.

[Serge_Bliznykov]

а что, Вам вообще ни одна строчка не понятна?!

так может быть, стоит погуглить
по CreateOleObject('Excel.Application' );
или по Работа с Excel в Delphi через OLE

код же достаточно прост.
при каждом нажатии на Button2 содержимое StringGrid1
записывается в Excel файл с именем exelNN.xls (вместо NN цифры - порядковый номер нажатия на кнопку).

p.s. ну и, разумеется, работать этот код будет только на Windows с установленным MS Excel. Иначе будет Access Violation...

[Fiery Fox]

Я понимаю примерно половину кода, потому что сам чуть чуть его дописывал)
Просто не работал с оле обьектами до этого.

[Serge_Bliznykov]

Я понимаю примерно половину кода, потому что сам чуть чуть его дописывал)

ну и ?... какие именно строчки непонятны?!