delphi graphics, connect two pixel colors[red and blue] then draw a line on each point to connect

procedure FindAndConnect(Graphic: TBitmap; SourceColor, DestColor: TColor);
type
  TRGB32Array = Packed Array[0..(MaxInt div SizeOf(Integer)) - 1] Of Integer;
  PRGB32Array = ^TRGB32Array;
var
  CurrentLine : PRGB32Array;
  X, Y : Integer;
  StartPoint,
  EndPoint : TPoint;
begin
  Graphic.PixelFormat := pf32bit;
  FillChar(StartPoint, SizeOf(TPoint), 0);
  FillChar(EndPoint, SizeOf(TPoint), 0);
  For Y := 0 To Graphic.Height - 1 Do
    begin
    CurrentLine := PRGB32Array(Graphic.Scanline[Y]);
    For X := 0 To Graphic.Width - 1 Do
      begin
      If (CurrentLine^[X] XOR SourceColor) = 0 Then
        begin
        StartPoint := POINT(X, Y);
      end
      Else If (CurrentLine^[X] XOR DestColor) = 0 Then
        begin
        EndPoint := POINT(X, Y);
      end;
    end;
  end;
  Graphic.Canvas.Pen.Color := clBlack;
  Graphic.Canvas.Pen.Width := 1;
  Graphic.Canvas.PenPos := StartPoint;
  Graphic.Canvas.LineTo(EndPoint.X, EndPoint.Y);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  FindAndConnect(Image1.Picture.Bitmap, clRed, clBlue);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('C:\test.bmp');
end;

Select allOpen in new window

hi ThievingSix;

with that .bmp, It can connect both lines, but if I will use a graphic bmp file pictures, why it can't

I'll close this post after this and answer;
Actually I'm detecting the persons eye with clWhite to clWhite, but didn't work.
Any suggestion?

Thanks