鼠标画线的问题

Question

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     drawto(x,y);
     moveto(origin);//出错[Error] Unit1.pas(29): Undeclared identifier: 'drawto'
[Error] Unit1.pas(30): Undeclared identifier: 'moveto'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'怎么回事？？？？？？？？？//
end;

Answer 1

canvas.moveto(x,y);
canvas.lineto(x,y);

Answer 2

public
    { Public declarations }
    x1,y1:integer;
    down:boolean;
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if down=true then
  begin
    form1.Canvas.Pen.Color:=clred;
    form1.Canvas.LineTo(x,y);
  end;
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x1:=x;
  y1:=y;
  form1.Canvas.MoveTo(x,y);
  down:=true;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  down:=false;
end;end.