1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//////////////////////////////////////Bild generieren
procedure TForm1.Button1Click(Sender: TObject);
var i,j,h,w,farbe:integer;
begin
  image1.Picture.LoadFromFile('Futur.bmp');
  h:=image1.Height;
  w:=image1.Width;

/////////////////////////////////////Rotwert auslesen
   for i:=0 to h do
   for j:=0 to w do
   begin
     farbe:=image1.Canvas.Pixels[j,i];
   end;
   label1.Caption:=inttostr(farbe);
end;					

1:
2:
3:
4:
5:
6:

for i:=0 to h-1 do
   for j:=0 to w-1 do
   begin
     farbe:=farbe+GetRValue( image1.Canvas.Pixels[j,i] );
   end;
label1.Caption:=inttostr(farbe);