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;
 FRMIntr.IMGIntroSplash.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;
   FRMIntr.IMGIntroSplash.Canvas.Draw(0, 0, bm);
   Application.ProcessMessages;
   Sleep(5)
 End;
 bm1.Destroy;
 bm2.Destroy;
 bm.Destroy;
End;