SelectDirectory Centralizado e já no diretorio.

Galera eu uso o SelectDirectory assim:


procedure...
var
Caminho: String;
begin
if SelectDirectory(´Selecione o Diretorio´,´´,Caminho) then
Edit1.Text := Caminho;
end;

Até ai beleza, mas esta caixa de diaogo aparece no canto direito da tela do windows, e eu quero centralizada. Alem do mais se eu ja tiver um diretorio padrao não consigo enviar isso para a caixa de dialogo, para ja vir no local indicado...tem como fazer isso?

VALEU