[Grimm]

Есть:

Код:

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

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     ListBox1: TListBox;   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm} procedure ScanDir(StartDir: string; Mask: string; List: TStrings); var   SearchRec: TSearchRec;Edit1: TEdit; begin StartDir:='C:\';   if Mask = '' then     Mask := '*.*';   if StartDir[Length(StartDir)] <> '\' then     StartDir := StartDir + '\';   if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then   begin     repeat Application.ProcessMessages;       if (SearchRec.Attr and faDirectory) <> faDirectory then         List.Add(StartDir + SearchRec.Name)       else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then       begin         List.Add(StartDir + SearchRec.Name + '\');       ScanDir(StartDir + SearchRec.Name + '\', Mask, List);   end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end;           end.

Хотелось бы не в лист сохранять, а в листбокс1. Пробовал по разному, ошибок нет, но не сохраняет.. Подскажите кто столкнулся