Необходимы комментарии!!!

[Танюшаа]

Здравствуйте! Пожалуйста, напишите комментарии (где помечено знаком вопроса)! Я новичок в программировании....

procedure TFOtzetXLS.Button3Click(Sender: TObject);
var
Layout: array[0..KL_NAMELENGTH] of char; ????????
begin
LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE); ???????
try
ExportDBGrid(True);
except
ShowMessage('Ошибка экспортёра');
end;
end;

procedure TFOtzetXLS.ExportDBGrid(toExcel: Boolean);
var bm: TBookmark;
col, row: Integer;
sline: string;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
DBGrid1.DataSource.DataSet.DisableControls; ????????
bm := DBGrid1.DataSource.DataSet.GetBookmark; ????????
DBGrid1.DataSource.DataSet.First; ?????????
// создаём объект Excel
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet); ?????????
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Grid Data'; ???????
end;
// Сперва отправляем данные в memo
// работает быстрее, чем отправлять их напрямую в Excel
mem := TMemo.Create(Self);
mem.Visible := false;
mem.Parent := FOtzetXLS;
mem.Clear;
sline := '';

for col := 0 to DBGrid1.FieldCount - 1 do ????????????
sline := sline + DBGrid1.Fields[col].DisplayLabel + #9; ???????????
mem.Lines.Add(sline);
// получаем данные из memo
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount - 1 do ??????
begin
sline := '';
for col := 0 to DBGrid1.FieldCount - 1 do sline := sline + DBGrid1.Fields[col].AsString + #9; mem.Lines.Add(sline); ????????????????????????
DBGrid1.DataSource.DataSet.Next; ???????????????????
end;
// Копируем в clipboard
mem.SelectAll;
mem.CopyToClipboard;
// если необходимо, то отправляем их в Excel

if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste; ?????????
ExcelApp.Visible := true; ???????????? 
end;
ExcelApp := Unassigned; ????????????
DBGrid1.DataSource.DataSet.GotoBookmark(bm); ???????????
DBGrid1.DataSource.DataSet.FreeBookmark(bm); ???????????
DBGrid1.DataSource.DataSet.EnableControls; ?????????
Screen.Cursor := crDefault;
end;

end

[Stilet]

Layout: array[0..KL_NAMELENGTH] of char; - МАссив содержащий имя раскладки клавиатуры

LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE); - Загрузить раскладку под номером (именем) 419

bm := DBGrid1.DataSource.DataSet.GetBookm ark; - Поставить закладку на текущую позицию в таблице или наборе, чтобы потом можно было быстро к ней перескочить

DBGrid1.DataSource.DataSet.First; Стать вверх таблицы

DBGrid1.DataSource.DataSet.GotoBook mark(bm); Перескок на закладку
DBGrid1.DataSource.DataSet.FreeBook mark(bm); Удаление закладки

[Танюшаа]

Спасибо,БОЛЬШОЕ,Виталий!!!!!!!