Programmsymbol aus ListBox in TImage laden?

[Johnny Bravo]

Habs mal mit folgendem code versucht, welcher leider nicht funktionert - compiliert wird das programm trotzdem fehlerfrei. Aber ein Icon bekomme ich bei TImage nicht angezeigt.

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 := ExtractFileName(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);
  end;
end;
     Form4.Show;                                           
  end;