Programmsymbol aus ListBox in TImage laden?

[Johnny Bravo]

danke, klappt leider nicht. bekomme die fehlermeldung das die Variable 'Icon' zwar deklariert würde aber nie benutzt in ShellExecuteMessage....?

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var
  TempIcon: HICON;
  Icon:TIcon;
begin
     openDialog := TOpenDialog.Create(self);                  
     openDialog.InitialDir := GetCurrentDir;                  
     openDialog.Options := [ofFileMustExist];                 
     openDialog.Filter := 'Anwendungen|*.exe;*.com';          
     openDialog.FilterIndex := 0;

  if openDialog.Execute then

    begin
         TempIcon := IconFromFile(OpenDialog1.FileName,0);     
    if   (TempIcon <> 0) then

    begin
        Icon:=TIcon.Create;
      Try
        Icon.Handle := TempIcon;
        Icon.SaveToFile('c:\Merke.ico');
      With Image1.Canvas Do
        DrawIconEx(Handle, 0, 0,TempIcon, 16, 16, 0, Brush.Handle, di_Normal);
      Finally
        Icon.Free;
      End;
    end;
       Form4.Show;                                           
  end;
 end;