[Dead_Gigabit]

сделал так:

Код:

var
path:string;
 F: TSearchRec;
  Attr: Integer;
   mes: TIdMessage;
    error : Integer;
    ArrExt:variant;
    i:integer;
    begin
dtp.DateTime:=Tdatetime(now);
 ArrExt := VarArrayOf(['txt','doc','htm','prn']);
 for i := 0 to VarArrayHighBound(ArrExt,1)
 do begin
     Path := Format('%s*.%s',[edit1.text,ArrExt[i]]);
  {которые имеют атрибуты "Только для чтения" и "Архивный"}
  Attr := faReadOnly + faArchive;

  FindFirst(Path, Attr, F);
//   if f.Name=('*.txt') then

  {Если хотя бы один файл найден, то продолжить поиск}
  if (F.name <> '') then begin


ListBox1.Items.Add('Наиден фаил: '+F.name +' ['+datetostr(dtp.Date)+']  ['+timetostr(dtp.Time)+']');
  end;
    end;
 end;

находит правда почемуто один фаил 4 раза...
Почему?
а можно усовершенствовать что-бы искал только один фаил а не все что есть в папке (сначала 1 нашел перенёс в папку, потом 2й перенес в папку и.т.д)