opstart dir

Hej
Jeg har denne procedure
hvor jeg kalder en dir box
men hvordan bestemmer jeg hvilket dir "boxen" skal stå i når den kommer frem på skærmen, jeg vil gerne have den til at stå i et bestemt hvergang


procedure TFrmHovde.SpeedButton4Click(Sender: TObject);// skift dir
begin
  Dir := Frmopsaetning.RichEdit1.Lines[13];
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    Label1.Caption := Dir;
end;