SelectDirectory i midten af skærmen

Hvorfor kommer boxen altid frem nede i højre hjørne? vil gerne have den til at dukke op i midten af skærmen.

var
  chosenDirectory : string;
begin
  if SelectDirectory('Select a directory', '', chosenDirectory)
  then ShowMessage('Chosen directory = '+ chosenDirectory)
  else ShowMessage('Directory selection aborted');