[Akzes]

следующая процедура на работает с файлами шрифтов

Код:

procedure TfmMain.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  if OpenDialog.Execute then
    begin
      reFontList.Lines.BeginUpdate;
      for i:=0 to OpenDialog.Files.Count-1 do
        reFontList.Lines.Add(OpenDialog.Files[i]);
      reFontList.Lines.EndUpdate;
    end;
end;

как сделать? помогите плиз...