[x128]

Код:

var
  x,y: integer;
  dst: pByteArray;
  bmp: TBitmap;
...
bmp:=TBitmap.Create;
bmp.PixelFormat:=pf24bit;
bmp.Height:=ymax;
bmp.Width:=xmax;
for y:=0 to ymax-1 do begin
  dst:=bmp.Scanline[y];
  for x:=0 to xmax-1 do begin
     dst[x*3+0]:=значение из масива B
     dst[x*3+1]:=значение из масива G
     dst[x*3+2]:=значение из масива R
  end;
end;
bmp.SaveToFile('имя файла');
bmp.Destroy;