IF Windows.BitBlt(hdc,TempInst^.xpos,TempInst^.ypos,ThisFish.xextent,ThisFish.yextent,hMemoryDC,0,0,Windows.SRCCOPY) = 0 THEN
END;
END;
IF TempInst^.speedx > 0 THEN
IF Windows.BitBlt(hdc,TempInst^.xpos,TempInst^.ypos,TempInst^.speedx,ThisFish.yextent,hMemoryDC,0,0,Windows.BLACKNESS) # 0 THEN END;
END;
IF TempInst^.speedx < 0 THEN
IF Windows.BitBlt(hdc,TempInst^.xpos+ThisFish.xextent+INTEGER(TempInst^.speedx),TempInst^.ypos,-TempInst^.speedx,ThisFish.yextent,hMemoryDC,0,0,Windows.BLACKNESS) # 0 THEN END;
END;
TempInst^.pspeedx := TempInst^.speedx;
TempInst^.pspeedy := TempInst^.speedy;
IF TempInst^.xpos < WMain.RealXYRect.left-ThisFish.xextent THEN TempInst^.xpos := WMain.RealXYRect.right END;
IF TempInst^.xpos > WMain.RealXYRect.right THEN TempInst^.xpos := WMain.RealXYRect.left-ThisFish.xextent END;