Dialog wird an falscher Stelle angezeigt

[Kinimod8]

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean; 
var 
  ofn: TOpenFileName; 
  szFile: array[0..MAX_PATH] of Char; 
begin 
  Result := False; 
  FillChar(ofn, SizeOf(TOpenFileName), 0); 
  with ofn do 
  begin 
    lStructSize := SizeOf(TOpenFileName); 
    hwndOwner := ParentHandle; 
    lpstrFile := szFile; 
    nMaxFile := SizeOf(szFile); 
    if (Title <> '') then 
      lpstrTitle := PChar(Title); 
    if (InitialDir <> '') then 
      lpstrInitialDir := PChar(InitialDir); 
    StrPCopy(lpstrFile, FileName); 
    lpstrFilter := PChar(CharReplace(Filter, '|', #0)+#0#0); 
    if DefExt <> '' then 
      lpstrDefExt := PChar(DefExt); 
  end; 
  if IsOpenDialog then 
  begin 
    if GetOpenFileName(ofn) then 
    begin 
      Result := True; 
      FileName := StrPas(szFile); 
    end; 
  end 
  else 
  begin 
    if GetSaveFileName(ofn) then 
    begin 
      Result := True; 
      FileName := StrPas(szFile); 
    end; 
  end 
end;

Mit diesem Code kann man einen Dialog mit den neuesten Features anzeigen...

Leider wird der Dialog ganz unten rechts und nicht in der Mitte angezeigt
Wie kann ich erreichen, dass er in der Mitte gezeigt wird?