[AirTex]

Вот код который загружает файл на сервер:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TIdMultipartFormDataStream; //для работы с формой отправки
begin
  Stream := TIdMultipartFormDataStream.Create;
 try
   Stream.AddFile('myfile', 'C:\papka\kzzk95349.txt', '');
   Memo1.text:=IdHTTP1.Post('ххххххх/index.php', Stream );
 finally
   Stream.Free;
 end;
  end;

мне нужно дополнить этот код- что бы скрипт искал все файлы в папке которые начинаются на kzzk и отправлял их на сервер.
Можете помочь если не трудно? буду очень благодарен.