Procedure Werte

[codenoob]

Hi Delphianer

Ich habe verschiedene Bilder in einer Resourcedatei die ich auslesen kann.

Delphi-Quellcode:

procedure Bildauslesen;
var
  Hd: THandle;
  Ico: TIcon;
begin

  Hd:= LoadImage(HInstance, 'RES_ICON1', IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);

  Ico:= TIcon.Create;

  Ico.ReleaseHandle;
  Ico.Handle := Hd;

  Form1.image1.Picture.Icon.Assign(ico);
  Ico_1.Free;

end;

Nun wollte ich die Prozedur so umbauen das ich sie aufrufen kann und bestimmen kann welches Icon in welche Timage geladen werden soll.

Delphi-Quellcode:

procedure Bildauslesen(ICON: String; IMG: Timage);
var
  Hd: THandle;
  Ico: TIcon;
begin

  Hd:= LoadImage(HInstance, ICON, IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);

  Ico:= TIcon.Create;

  Ico.ReleaseHandle;
  Ico.Handle := Hd;

  IMG.image1.Picture.Icon.Assign(ico);
 
  Ico_1.Free;

end;

und mit dem Befehlt
 Bildauslesen(icon1 , Image1); will ich das dann ausführen

Aber dies funktioniert nicht was mache ich da falsch?

Grüsse Tom