OK habs hier mit hinbekommen:
Delphi-Quellcode:
procedure TOptionen.SpeedButton1Click(Sender: TObject);
var Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
edit1.Text := dir;
end;
Achso wollte ich noch fragen wie kann ich jetzt sagen das er das in eine ini datei schreibt.