#pas
procedure THiImg_Tween._work_doLoad;
var   BitmapA,BitmapB: PBitmap;
begin
   ...
   ...
 
   BitmapC.Clear;
   BitmapB.Clear; // test
   BitmapA.Clear; // test 
end;

procedure THiImg_Tween._work_doTween;
var   Diff: integer;
begin