[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;

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

[Bargest]

Ну и? Это предупреждения (warning), а не ошибки (error). Предупреждения значат, что "ай-ай-ай, нехорошо". Однако работать будет.
Конкретно это предупреждение можно было перевести переводчиком. Специфично для платформы, т.е. на каких-то версиях Windows в теории может не работать.

[DeOne]

Хмм, спасибо.

А есть тогда другие способы выбора папки ?

[Bargest]

А что значит "выбор папки"? Загадать чтоли?

[DeOne]

Ну директорию )

[Bargest]

Диалог выбора директории чтоли показать?