Programmsymbol aus ListBox in TImage laden?

[IceTube]

Delphi-Quellcode:

procedure LoadImg(Image:TImage;FileName:string);
function IconFromFile(const Filename: String; IconNr: Word): HICON;
var 
  buffer: array[0..2*MAX_PATH]of Char; 
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;
var ImageList : TImageList;
    Icon : TIcon;
    h : HIcon;
begin
//Icon
Icon := TIcon.Create;

//Erstelle ImageList
ImageList := TImageList.Create(nil);

//
H := IconFromFile(FileName,1);

//
Icon.Handle := H;

//
ImageList.AddIcon(Icon);

//
ImageList.GetIcon(0,Image.Picture.Icon);
end;

Aufruf:

Delphi-Quellcode:

procedure TForm1.OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
begin
LoadImg(Image1,OpenDialog1.FileName);
end;

Wieso eigentlich "Programmsymbol aus ListBox in TImage laden?", du willst ja aus dem OpenDialog(der geöffneten Datei) das Icon in ein Image laden oder nicht=

Vielleicht gehts mit dem Code oben ?!?

lg