angeblicher Fehler bei Übergabe an Prozedur

[Bastler]

Hallo zusammen;

Ich habe mehrer JPGs in einer RES Datei abgelgt und möchte mit dieser Prozedur drauf zugreifen:

Delphi-Quellcode:

procedure JPG_aus_Res(var bild:integer);
var
  JPG : TJPEGImage; 
  ResStream : TResourceStream; 
begin
  try
    JPG := TJPEGImage.Create;
    ResStream := TResourceStream.CreateFromID(HInstance, bild, RT_RCDATA);
    JPG.LoadFromStream(ResStream); 
    Form1.Image1.Canvas.Draw(0,0,jpg);
  finally
    JPG.Free;
    ResStream.Free;
  end;
end;

Aufrufen tue ich die Prozedur während eines Case-Blocks:

Delphi-Quellcode:

Case punkte of
  1: jpg_aus_res(1);
  //...
end;

Ich bekomme vom Compiler dann diese Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(173): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

'1' Ist doch ein normaler Integerwert...

Ich würd mich über Tipps, wo das Problem ist, und wie es zu lösen ist serh freuen...