[MezKo]

Помогите с написанием комментарии к листингу программы. Надо почти к каждой процедуре или функции написать комментарий. Необязательно к каждой строчке.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TMainForm.ToolButton8Click(Sender: TObject); var F: TextFile;     i: Integer; begin  try  with SaveDlg, PersonsList.Items do  begin   if Not Execute then Exit;   SaveToFile(FileName);   AssignFile(F, Copy(FileName,1,Length(FileName)-4)+'.lso');   Rewrite(F);   for i := 0 to Count - 1 do   if Objects[i] <> Nil then   begin    Writeln(F, (Objects[i] as THuman).FirstName);    Writeln(F, (Objects[i] as THuman).LastName);    Writeln(F, (Objects[i] as THuman).Age);    Writeln(F, (Objects[i] as THuman).Document);    Writeln(F, (Objects[i] as THuman).Address);    Writeln(F, (Objects[i] as THuman).Phone);   end;   CloseFile(F);  end;  except   on E: EFOpenError do ShowMessage('Ошибка открытия файла');  end; end;