画图(20分)

给出一个函数，怎么把它用DELPHI画出来？？

什么意思?

画正弦线：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
r, t: integer;
a1, m: real;
bmp: TBitmap;
begin
if (strtoint(edit1.Text) < 0) or (strtoint(edit1.Text) > 10000000) or
(edit1.Text = ' ') then
begin
showmessage('请输入一个1到10000000之间的数！');
exit;
end;
bmp := Tbitmap.create;
bmp.Width := Image1.Width;
bmp.Height := Image1.Height;
bmp.Canvas.Pen.Color := RGB(random(255), random(255), random(255));
;
for t := 1 to 5000 do
begin
a1 := t * 3.1415926 / 180;
m := 100 * cos(strtoint(edit1.Text) * a1);

if t = 1 then
begin
//移动Penpos到当前第一点；
bmp.Canvas.MoveTo(0, trunc(m) + 200);
end
else
begin

bmp.Canvas.lineto(t, trunc(m) + 200);
end;
end;
image1.Picture.Bitmap.Assign(bmp);
bmp.Free;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1Click(Sender);
end;

end.

用IMAGE画图可以，但是不能实现我给出一个函数它就可以画出图形，而且我的鼠标选中一个点
就可以出现这个点的坐标。
请指教

poscursor什么的api,好象是这么拼的

天下的函数可是多的很阿。。。。。

那要先分析这个函数，这个反而是重点。至于如何画出来，并不很难。

请问怎么用image实现坐标轴？可以在上面体现出来

急救

mousemove事件中写不行吗，用状态栏显示，屏幕坐标是左上角为原点，你的函数经过坐标变化成实际坐标的函数，一点一点画就行，你是不是要做图形学的作业，以前刚学DELPHI老师刚好叫我们做记忆深刻。

请问能给我一段程序吗？？

我不是计算机的，救急用。