TileBitmap

procedure TileBitmap(

  Dest: TSystemSurface;

  Source: TSystemSurface;

  const TexSize: TPoint2px;

  const InPSize: TPoint2px;

  const OutPSize: TPoint2px;

  NeedMask: Boolean;

  MaskColor: Cardinal;

  Tolerance: Integer

);