LCDInfo.com

for(y = 0; y < 48; y++)
{
    for(x = 0; x < 84; x++)
    {
        if (bmp[bmp[10]+(12*(47-y)+(x>>3))] & 1<<(7-(x&7)))
        {
            buffer[x+(84*(y>>3))] = buffer[x+(84*(y>>3))] | 1<<(y&7);
        }
    }
}

   For Line:= 0 to 5 do         // Repeat 6 times for 6 lines
    begin
     For x:= 0 to 83 do  // Scan horizontally
      begin
        for y:= 0 to 7 do       // Scan vertically 8 dots
           If BMP.Canvas.pixels[x,y+Line*8] > clBlack then
            templine := (templine shr 1) and $7F // shifting a pixel into a character
           else
           templine := (templine shr 1) or $80;
        tUSb := tUSB + LineToS(Chr(templine)); // Collecting characters into tUSB
        end;  // Here we have a whoile line of LCD data (84x8)
     Write_USB_String(tUSB);
     tUSB := '';
     end;