Programmsymbol aus ListBox in TImage laden?

[Johnny Bravo]

so, ich habe rausgefunden das sich das TImage weiß färbt, wenn folgender code ausgeführt wird:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var IconIndex : Integer;
    h : hIcon;
    S : String;
    Icon : TIcon;
    Bitmap : TBitmap;
begin
     openDialog := TOpenDialog.Create(self);                  
     openDialog.InitialDir := GetCurrentDir;                  
     openDialog.Options := [ofFileMustExist];                 
     openDialog.Filter := 'Anwendungen|*.exe;*.com';          
     openDialog.FilterIndex := 0;


  if openDialog.Execute then
   begin
     Icon := TIcon.Create;
     IconIndex := 0;
     S := OpenDialog1.FileName;
     h := ExtractIcon(0,PAnsiChar(S),IconIndex);
     Icon.Handle := h;
     ImageList1.AddIcon (Icon);
   try
    ImageList1.GetIcon(0, Icon);
    Image1.Canvas.Draw(0, 0, Icon);
  finally
    FreeAndNil(Icon);
    OpenDialog1.Free;
    Form4.Show;                                           
  end;

wieso wird das Image nur weiß, aber es wird nicht das Programmsymbol angezeigt?

Danke schonmal für eure antworten.