Delphi Ränder erkennen von Objekten

[Saminem]

Danke schonmal für die vielen Vorschläge habe jetzt geschaft das Programm halbwegs zu laufen zu bringen jedoch erkennt er bei einem 4 Ecke noch nicht die rechte Ecke erkannt.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var k,n,t,pixel1,pixel2,pixel3:integer;
    gewichtung1,gewichtung2,gewichtung3:extended;
begin
  for n:=1 to hoehe -2 do
  begin
    P1:=Image1.Picture.Bitmap.ScanLine[n];
    P2:=Image1.Picture.Bitmap.ScanLine[n+1];
    P3:=Image2.Picture.Bitmap.ScanLine[n];
    for t:=0 to (breite) do
    begin
      pixel1:=P1[t*3];
      pixel2:=P2[t*3];
      pixel3:=P1[t*3+3];
      gewichtung1:= pixel1+pixel2+pixel3;
      if gewichtung1 = 255 then
      begin
        P3[t*3+0]:=0;
        P3[t*3+1]:=0;
        P3[t*3+2]:=0;
      end;
      if gewichtung1 = 510 then
      begin
        P3[t*3+0]:=0;
        P3[t*3+1]:=0;
        P3[t*3+2]:=0;
      end;
  end;
  end;
  image2.refresh;
end;


var
  Form1: TForm1;
  breite,hoehe :integer;
  P1:pbytearray;
  P2:pbytearray;
  P3:pbytearray;
  P4:pbytearray;

Ich bitte um verständniss wenn ich auf fragen nicht immer die passende antwort habe.