[msqrc]

Тоже не работает!(
Вот код:

Код:

type Tmycolor = record
  B,G,R,C : byte;       ///не пойму зачем "C", но без него все смещается!
  end;
type Tmya = array[0..W-1] of Tmycolor;
var .......
     P : pointer;
     B : TBitmap;
     byf : byte;
begin
B :=TBitmap.Create;
B.Height :=H;
B.Width :=W;
for j:=0 to H-1 do
 begin
 P :=B.scanline[j];
 for i:=0 to W-1 do
   begin
   byf :=...........
   Tmya(P^)[i].B :=byf;
   ..............
   end;
 end;
end;