Задание имени объекта процедурке

[Alex Cones]

Всем известный код для перехода одного изображения в другое:

Procedure PicToPic(PicName1,PicName2,Times,Sleeper: String);
 Var
  bm, bm1, bm2: TBitMap;
  p1, p2, p: PByteArray;
  i, y, x: integer;
 Begin
  Sleep(StrToInt(Sleeper));
  bm := TBitMap.Create;
  bm1 := TBitMap.Create;
  bm2 := TBitMap.Create;
  bm1.LoadFromResourceName(HInstance,PicName1);
  bm2.LoadFromResourceName(HInstance,PicName2);
  bm.PixelFormat := pf24bit;
  bm1.PixelFormat := pf24bit;
  bm2.PixelFormat := pf24bit;
  bm.Height :=bm1.Height;
  bm.Width :=bm1.Width;
  Form1.Image1.Canvas.Draw(0, 0, bm1);
  For i := 1 To StrToInt(Times) - 1 Do
  Begin
   For y := 0 To bm.Height - 1 Do
    Begin
      p := bm.ScanLine[y];
      p1 := bm1.ScanLine[y];
      p2 := bm2.ScanLine[y];
      For x := 0 To bm.Width * 3 - 1 Do
        p^[x] := round((p1^[x] * (StrToInt(times) - i) + p2^[x] * i) / StrToInt(times));
    End;
    Form1.Image1.Canvas.Draw(0, 0, bm);
    Application.ProcessMessages;
    Sleep(5)
  End;
  bm1.Destroy;
  bm2.Destroy;
  bm.Destroy;
 End;

Хотелось бы добавить в переменные процедуры объект, что бы обращаясь к ней задавать не только картинки и кол-во изменений, но и объект, на котором это будет рисоваться. Может написать

Procedure PicToPic(PicName1,PicName2,Times,Sl eeper: String; Var IMG:TImage);? А Form1.Image1 заменить на IMG. Но как тогда правильно прописывать обращение к процедуре?
Procedure PicToPic('Ima1',Ima2','50', Form1.Image2);?

[Kotofff]

Объяви без var :

Procedure PicToPic(PicName1,PicName2,Times,Sleeper: String; IMG:TImage);

И не забывай в самой процедуре Form1.Image1 поменять на IMG.
И вызов делай так как сам написал : PicToPic('Ima1','Ima2','50', Image2);

[Alex Cones]

Большое спасибо, Kotofff.

[Kotofff]

Еще можно для "хорошего тона" в процедуре поменять тип аргументов Times и Sleeper на integer ... и соответственно в самой процедуре поменять Sleep(StrToInt(Sleeper)) на просто Sleep(Sleeper) и так же с StrToInt(Times) ...

[Alex Cones]

Да эт я у себя уже заменил, просто руки не дотягивались.