[Janom]

Держи:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
   SR       : TSearchRec;
   Filename : TStringList;
   papka    : array of String;
   Path     : string;
   i        : Integer;
begin
Filename:=TStringList.Create;
Path:= 'C:\Program Files\*.*';
FindFirst(Path, faDirectory, SR);
if (SR.name <> '') and
    (SR.name <> '.') and
      (SR.name <> '..') then Filename.Add(SR.name);

//--With While--\\
while FindNext(SR) = 0 do
  if (SR.name <> '') and
      (SR.name <> '.') and
        (SR.name <> '..') then Filename.Add(SR.name);
//--End  While--\\
{
//--With Until--\\
repeat
  if (SR.name <> '') and
      (SR.name <> '.') and
        (SR.name <> '..') then Filename.Add(SR.name);
Until FindNext(SR) <> 0;
//--End  Until--\\
}
SetLength(papka, Filename.Count-1);
for i := 0 to High(papka) do
  begin
    papka[i] := Filename.Strings[i] ;
    ListBox1.Items.Add(papka[i]);
  end;
Filename.Free;
end;