//Lazarus 3.6 //uses ...IntfGraphics, FPImage, Math procedure TForm1.Button1Click(Sender: TObject); var b:

Question

//Lazarus 3.6 //uses ...IntfGraphics, FPImage, Math procedure TForm1.Button1Click(Sender: TObject); var b:

TBitmap;
t: TLazIntfImage;
px, py: Integer;
C: TFPColor;

begin b := TBitmap.Create;
try
b.Assign(Image1.Picture.Bitmap); //В Image1 предварительно загр. картинка с альфа-каналом
t := b.CreateIntfImage;

for py := 0 to t.Height - 1 do begin
for px := 0 to t.Width - 1 do
begin
C := t.Colors[px, py];

C.Red := 0; //?
C.Green := 0; //?
C.Blue := 0; //?

t.Colors[px, py] := C;
end;
end;

Image1.Picture.Bitmap.LoadFromIntfImage(t);
finally
b.Free;
t.Free;
end;
end;

Господа, нашел пример по манипуляции с каналами RGB, но не могу с ним справиться.
Как получить итоговый цвет картинки? Например, красный. GPT дает нерабочие советы.