مشکلی با تابع Scan Line

[yashar666]

با سلام

این کد رو ببینید :


procedure TForm1.Button1Click(Sender: TObject);
var
x:PByteArray;
i:Integer;
begin
x:=Image1.Picture.Bitmap.ScanLine[160];
for I := 0 to Image1.Picture.Bitmap.Width - 1 do
begin
Memo1.Lines.Add(IntToStr(x[i]));
end;
end;

لاین 160 .. تمام پیکسل ها شو به صورت B R G gray (چهار عدد پشت هم ) برمیگرداند ..

می خوام در 4 تا memo به صورت جدا B R G gray رو ببینم