[РЕШЕНО][Delphi] График на форме

[Rilpack]

Нужно, чтобы рисовалась красная линия (как на картинке) на графике.
Числа вводятся разные.
Код самого графика:

Form1.Repaint;
begin
  xc:=Form1.Width div 5;
  yc:=Form1.Height div 2;
  w:=xc*5;
  h:=yc*2;
  mx:=(w-50)/12;
  my:=(h-40)/60;
with Form1.Canvas do
begin
  Pen.Color:=clBlack;
  MoveTo(0,yc);
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  Textout(w-20,yc-20,'X');
  Textout(xc+10,10,'Y');
  for i:=1 to a do
  begin
    MoveTo(xc+round(i*mx),yc-3);
    LineTo(xc+round(i*mx),yc+3);
    Textout(xc+round(i*mx),yc+10,Inttostr(i));
    MoveTo(xc+3,yc-round(i*my*5));
    LineTo(xc-3,yc-round(i*my*5));
    Textout(xc-30,yc-round(i*my*5),Inttostr(i));
  end;

  lb.lbStyle:=BS_SOLID;
  lb.lbColor:=clGreen;
  Pen.Handle:=ExtCreatePen(PS_GEOMETRIC or PS_DASH,2,lb,0,nil);
  MoveTo(xc+round(n*mx),yc);
  LineTo(xc+round(n*mx),yc-round(a*my*5));
  LineTo(xc,yc-round(a*my*5));
end;
end;
end;

[Serge_Bliznykov]

Pen.Color:=clRed;
MoveTo(xc,yc);
LineTo(xc+round(n*mx),yc-round(a*my*5);

[Rilpack]

Сообщение от Serge_Bliznykov

Pen.Color:=clRed;
MoveTo(xc,yc);
LineTo(xc+round(n*mx),yc-round(a*my*5);

Спасибо!