anchor.diff:    if (FPicture.Graphic <> nil) and ((FPicture.Width > 0) and (FPicture.Height > 0)) then
     begin
       if Align in [alNone, alLeft, alRight] then
  -      Width := FPicture.Width div FImageCount;
  +      Width := FImgWidth;
       if Align in [alNone, alTop, alBottom] then
  -      Height := FPicture.Height;
  +      Height := FImgHeight;
     end;
   end;
   
  
positive.code: {$ENDIF}
    Winapi.Messages,
    System.Classes,
    System.Types,
    Vcl.Controls,
    Vcl.Graphics,
  
negative.code:     FWordwarp: Boolean;
      FModalResult: TModalResult;
      FMouseLeave: Boolean;
      FImgWidth: Integer;
      FImgHeight: Integer;
    {$IFDEF UseGDIPlus}
      FGPBitmap: TGPImage;
    {$ENDIF}
  