Farbe per maus ermitteln und dann Punkt machen

[Cloudwalk]

Hallo. ich will per Mausklick ermitteln, ob eine Linie Blau ist und wenn ja, dann soll man dort einen Punkt machen. meine vorüberlegungen sind wie folgt:

Delphi-Quellcode:

procedure TForm1.mousedown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; Xm, Ym: Integer);
var s1c,s2c :=TColor; wid,x1,x2,y1,y2:integer;
begin
  if Bitmap.Canvas.Pixels[xm,ym]<> clblue then
    begin
      showmessage('Du musst auf der Startlinie Starten');
    end
  else
    if wid = 1 then
      begin
        x1:=xm;
        y1:=ym;
        Image.Canvas.Pen.width:=4;
        Image.Canvas.Pixels[x1,y1]:=s1c;
      end
    else
      begin
        x2:=xm;
        y2:=ym;
        Image.Canvas.Pen.width:=4;
        Image.Canvas.Pixels[x1,y1]:=s2c;
  end;
end;

es erscheint immer die Meldung 'Du musst auf der Startlinie Starten' also denk ich, dass irgendwas mit der ermittlung des Pixels zu tuen hat.

es wäre toll, wenn ihr mir helfen könntet.

MfG Cloud