1:

 if   (Canvas.Pixels[k,l]) <> clWhite then  begin Result := false;  exit end					

1:

Image.Picture.Bitmap.Canvas[...]					

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

var
  B: TBitmap;
begin
  B := TBitmap.Create;
  B.Width := 400;
  B.Height := 300;
  B.PixelFormat := pf24Bit;
  //
  // zeichnen
  //
  Image1.Picture.bitmap.Assign(B);
  //
  // test mit B.Canvas.Pixels
  B.Free;
end;					

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

function TAuto.VorneFreiImg;
var i,j,k,l: Integer;
begin
  Result := true;
  if (Top < ( H.Top + H.Height ))
     and (( Top + Height) > H.Top )
     and (( Left + Width) > H.Left )
     and ( Left < ( H.Left + H.Width )) then
      For i := h.Top To (h.Top + h.Height) do
        For j := h.Left to (h.Left + h.Width) do
          For k :=  Left to (Left + Width) do
            For l := Top To (Top + Height) do
              if (i = l) and (k = j) then
                if  ( Picture.Bitmap.Canvas.Pixels[ k,l]) <>  clwhite then begin 
                  Result  := false;   exit end
end;