FMX.Graphics.TBitmapData

 TBitmapData = record
 private
 FPixelFormat: TPixelFormat;
 FWidth: Integer;
 FHeight: Integer;
 function GetBytesPerPixel: Integer;
 function GetBytesPerLine: Integer;
 public
 Data: Pointer;
 Pitch: Integer;
 constructor Create(const AWidth, AHeight: Integer; const APixelFormat: TPixelFormat);
 function GetPixel(const X, Y: Integer): TAlphaColor;
 procedure SetPixel(const X, Y: Integer; const AColor: TAlphaColor);
 procedure Copy(const Source: TBitmapData);
 function GetScanline(const I: Integer): Pointer;
 function GetPixelAddr(const I, J: Integer): Pointer;
 property PixelFormat: TPixelFormat read FPixelFormat;
 property BytesPerPixel: Integer read GetBytesPerPixel;
 property BytesPerLine: Integer read GetBytesPerLine;
 property Width: Integer read FWidth;
 property Height: Integer read FHeight;
 end;

struct DECLSPEC_DRECORD TBitmapData
{
private:
 Fmx::Types::TPixelFormat FPixelFormat;
 int FWidth;
 int FHeight;
 int __fastcall GetBytesPerPixel(void);
 int __fastcall GetBytesPerLine(void);
public:
 void *Data;
 int Pitch;
 __fastcall TBitmapData(const int AWidth, const int AHeight, const Fmx::Types::TPixelFormat APixelFormat);
 System::Uitypes::TAlphaColor __fastcall GetPixel(const int X, const int Y);
 void __fastcall SetPixel(const int X, const int Y, const System::Uitypes::TAlphaColor AColor);
 void __fastcall Copy(const TBitmapData &Source);
 void * __fastcall GetScanline(const int I);
 void * __fastcall GetPixelAddr(const int I, const int J);
 __property Fmx::Types::TPixelFormat PixelFormat = {read=FPixelFormat};
 __property int BytesPerPixel = {read=GetBytesPerPixel};
 __property int BytesPerLine = {read=GetBytesPerLine};
 __property int Width = {read=FWidth};
 __property int Height = {read=FHeight};
 TBitmapData() {}
};