uses FileCtrl;
{Ikinci parametre baslangic klasörüdür}
procedure TForm1.Button1Click(Sender: TObject);
var Result: string;
begin
if SelectDirectory('Klasor Sec', Edit1.Text, Result) then
Edit1.Text := Result
else
ShowMessage('Islem iptal edildi');
end;