dir Box

hvorfor virker dette ikke

procedure TFrmHovde.SpeedButton4Click(Sender: TObject);// skift dir
var
  Dir: string;

begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    Label1.Caption := Dir;
end;

end;


den brokker sig over sdAllowCreate