SelectDirectory
øhhh spmprocedure TForm1.Button1Click(Sender: TObject);
var
Bibliotek: String;
begin
SelectDirectory(\'\', \'\', Bibliotek);
Bibliotek := edit1.text;
end;
dhvordan for jeg strengen \"bibliotek\" over i edit1.text (koden virker ikke sådan)
/zerocool
