Как сделать линии другим цветом? (Delphi)

[zaira001002]

Как сделать треугольник красным, как только не пробовала, но у меня все получается черным цветом?

  with Image1.Canvas do
      begin
        Canvas.Pen.Color := clRed;
        MoveTo(StrToInt(EditX1.Text),StrToInt(EditY1.Text));
        LineTo(StrToInt(EditX2.Text),StrToInt(EditY2.Text));
        MoveTo(StrToInt(EditX2.Text),StrToInt(EditY2.Text));
        LineTo(StrToInt(EditX3.Text),StrToInt(EditY3.Text));
        MoveTo(StrToInt(EditX3.Text),StrToInt(EditY3.Text));
        LineTo(StrToInt(EditX1.Text),StrToInt(EditY1.Text));
      end;

[Аватар]

Pen.Color := clRed;

[zaira001002]

Спасибо огромное))))) не знала) что второе канвас влияет так)