Problem mit "ChooseFolder"

[Matze]

Zitat von OH:

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Beschriftung (TLabel) verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird ein Dialogfeld zur Verzeichnisauswahl geöffnet. Als aktuelles Verzeichnis wird C:\MYDIR angezeigt. Der Benutzer kann ein Verzeichnis in der Liste auswählen oder ein neues Verzeichnis in das Ereignis eingeben. Bei Eingabe eines neuen Verzeichnisnamens erscheint eine Abfrage, ob das Verzeichnis angelegt werden soll. Wenn der Benutzer Ja wählt, wird das Verzeichnis erstellt. Bei Nein wird das Meldungsfeld wieder ausgeblendet, und das Verzeichnis nicht angelegt. Der Name des ausgewählten Verzeichnisses wird in der Beschriftungskomponente angezeigt:

Delphi-Quellcode:

uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;