怎么在delphi下画二维坐标系？初学者提问

如何在delphi下画二维坐标系？菜鸟提问
哪位能够讲解一下在delphi窗口画二维坐标的方法，并且能标注刻度。谢谢了

[解决办法]
乱正一通,自己去改
procedure TForm1.Button1Click(Sender: TObject);
var
x,y : integer;
begin
Point(x,y);
{ 画坐标轴}
Canvas.Pen.Color := clBlue;
Canvas.Polyline([Point(-50,200),Point(590,200)]);
Canvas.Polyline([Point(60,-1200),Point(60,500)]);
{画网格图}
x:=50;
while x <= 590 do
begin
Canvas.Pen.Color := clBlack;
Canvas.Polyline([Point(x,-1200),Point(x,500)]);
x:=x+10;
end;
end;