Scanline - Position von Objekt in einem Bild

[felxi]

Bin gerade dabei, meine ersten Schritte mit Scanline zu machen

Jetzt wollte ich versuchen, ein Rechteck um ein andersfarbiges Objekt im Bild zu ziehen (siehe Bild).

Folgenden Code benutze ich zum einfärben:

Delphi-Quellcode:

var
  Line:PRGBQUAD;
  x,y :integer;

begin


   bmp := Tbitmap.Create;
   bmp.LoadFromFile('c:\Bild.bmp');
   bmp.PixelFormat := pf32Bit;


   For y := 0 to bmp.Height - 1 do begin
   Line := Bmp.ScanLine[y];
   For x := 0 to bmp.Width - 1 do begin
   If not(Line.rgbGreen > 100 ) then begin
   Line.rgbRed := 0;
   

end;

   inc(Line);

end;
end;


  Image1.Picture.Bitmap.Assign(Bmp);

Jetzt weiß ich aber nicht, wie ich mittels Scanline den ersten und den letzten (roten) Punkt herausbekommen kann

Gruß