[=Student=]

Доброго времени суток, форумчане.
Появился вопрос про массовую печать всех html файлов в данной папке.
Полазил по инету. Вот что получилось:

Код:

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, FileCtrl, OleCtrls, SHDocVw, ShellAPI, Buttons;   type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     WebBrowser1: TWebBrowser;     procedure Button1Click(Sender: TObject);           procedure WebBrowser1NavigateComplete2(Sender: TObject;       const pDisp: IDispatch; var URL: OleVariant);        private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;    i: integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var sr:TSearchRec;     Result:word;         begin     i:=0;           ChDir(Edit1.Text);         Result := FindFirst (Edit2.Text,faAnyFile,sr);         Memo1.Clear;         While result=0 do     Begin Result:=FindNext (sr); Memo1.Lines.Add(sr.name) ; WebBrowser1.Navigate(Edit1.Text+'\'+sr.Name); While WebBrowser1.Busy do ; i:=i+1;       End;   ShowMessage('Ïîèñê çàêîí÷åí íàéäåíî '+IntToStr(i)+' ýëåìåíòîâ');   end;   procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;   const pDisp: IDispatch; var URL: OleVariant); Var  vaIn, vaOut : OleVariant; begin WebBrowser1.ControlInterface.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);   end;   end.

Но печатает всего 3-4 файла. Подскажите в чем ошибка.