ShlObj -> PickIconDlg() - merkwürdiges Verhalten

[KodeZwerg]

Hallo Gemeinde,

ich habe gerade den Vorteil dieser Funktion entdeckt aber weiß nicht so richtig wie ich sie korrekt anwenden muss.
Information habe ich dafür selbst noch nicht viele gefunden. Emba und meine Hilfe zucken mit Achseln.

Hier ist ein Wrapper den ich geschustert habe:

Delphi-Quellcode:

uses
  ShlObj;

...

function PickIconDialog( IconHandle: HWND; var Filename: string; var IconIndex: Integer ): Boolean;
var
  tmp : String;
  idx: Integer;
begin
  Result := False;
  tmp := Filename;
  idx := IconIndex;
  if ( PickIconDlg( IconHandle, PWideChar( tmp ), 1023, idx ) <> 0 ) then
    begin
      Filename := String( tmp );
      IconIndex := idx;
      Result := True;
    end;
end;

und so in etwa rufe ich das ganze auf:

Delphi-Quellcode:

procedure TfrmMain.btnGetIconClick(Sender: TObject);
var
  IconFile: String;
  IconIndex: LongInt;
begin
  IconFile := '';
  IconIndex := 0;
  try
    IconIndex := StrToInt( edIconIndex.Text );
  except
    IconIndex := 0;
  end;
  if ( PickIconDialog( Handle, IconFile, IconIndex ) = True ) then
    begin
      edIconLocation.Text := IconFile;
      try
        edIconIndex.Text := IntToStr( IconIndex );
      except
        edIconIndex.Text := '0';
      end;
      Image1.Picture.Icon.Handle := ExtractIcon( hInstance, PWideChar( IconFile ), Cardinal( IconIndex ) );
    end;
end;

In theory klappt es, praktisch erhalte ich auch tatsächlich immer den korrekten Namen plus Index.
Aber anscheinend ist mir dennoch da ein Fehler passiert.

Hier meine Fehl-Erscheinungen:
Edit Felder die vor dem Aufruf keinen Inhalt besaßen, haben nach dem Aufruf unsichtbar den Wert von "IconFile" gespeichert.
Manchmal wird mir im Edit Feld für Wert IconFile nichts angezeigt (Wert ist auch dort unsichtbar)

Frage, kennt sich jemand mit dieser Funktion aus und weiß wie sie ordentlich bedient wird?
Frage, hat Delphi eventuell solch einen praktischen Dialog bereits on-board und ich weiß davon nichts?

Vielen Dank fürs Lesen!