[Sanal]

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  fs: TSearchRec;

begin

if FindFirst(Form2.kat1.Text+'*.*', faAnyFile, fs)=0 then
   repeat
      Image1.Picture.LoadFromFile(fs.Name);
      Label6.Caption :=(fs.Name);
   until FindNext(fs)<>0;
   FindClose(fs);
end;

Admin: Пользуемся тегами!