EasyMap VCL
TEasyMap.AssignToBitmap
procedure AssignToBitmap(bm: TBitmap);
Description
Draws visible part of map into TBitmap object.

var bm: TBitmap;
begin
 bm := TBitmap.Create;
 Map.AssignToBitmap(bm);
 bm.SaveToFile('c:\map.bmp');
 bm.Free;
end;