[Midmal]

Хочу сделать так что бы при нажатии на кнопку

Код:

TButton1

в список

Код:

TListBox1

загружались все *.Bmp файлы из директории C:\BitMapFolder\.
У меня есть вот такой вот код:

Код:

begin
  with OpenDialog1 do
  if Execute then
  begin
    for Int := 0 to Files.Count - 1 do
    begin
      BitMap := TBitMap.Create;
      BitMap.LoadFromFile(Files[Int]);
    end;
    ListBox1.Items.AddObject(ExtractFileName(Files[Int]), BitMap);
  end;
end;

Но всём действие происходит с помощью пользователя, а как можно сделать так что бы при нажатии на определённую кнопку всё делалось в фоновом режиме???
P.S: Посоветуйте кто что знает...

[PhoeniX]

FindFirst, FindNext, FindClose.
Читаем...

З.Ы.: Теме не место в "Ваших программах", модераторы, перемещаем...