[DeOne]

Код на выбор папки из директории по кнопки.

Это прописано в uses FileCtrl.

Вот сам код:

Код:

procedure TForm1.sButton2Click(Sender: TObject);
var
 Directory: String;
 F: TSearchRec;
begin 
if SelectDirectory('Выбери папку...', '', Directory) then
  begin
    sEdit2.Text:=Directory+'\';
    if length(Form1.sEdit2.text) <> 0 then
          begin
if FindFirst(Form1.sEdit2.text+'*.jpg', faHidden+ faSysFile, F) = 0 then
 begin
 Form1.Memo2.Lines.Add(F.Name);
 Memo2.Lines.Insert(1, Memo2.Lines[0]);
 while FindNext(F) = 0 do Form1.Memo2.Lines.Add(F.Name);
 FindClose(F);
 end;
 end;
  end;
end;

При компиляции вылетает такое: