Bitmap.Map(TMapAccess.ReadWrite,BitmapData);
      BitmapData.SetPixel(p.X, p.Y,fRadarCol.GetRadarColor(groundItems[i].Id + $4000));
      BitmapData.SetPixel(p.X, p.Y + 1,fRadarCol.GetRadarColor(groundItems[i].Id + $4000));
      Bitmap.Unmap(BitmapData);

  {$IFDEF HAS_FMX}
  entry.icon.Map(TMapAccess.ReadWrite,BitmapData);
  {$ENDIF}
  SetLength(scanLines, entry.icon.Height);
  for i := 0 to entry.icon.Height - 1 do
  {$IFDEF HAS_FMX}
  scanLines[i] := BitmapData.GetScanline(i);
  {$ELSE}
  scanLines[i] := entry.icon.ScanLine[i];
  {$ENDIF}
....

  {$IFDEF HAS_FMX}
  entry.icon.Unmap(BitmapData);
  {$ENDIF}