перевести программу рисования графиков с Pascal на Delphi

[DooD]

помогите перевести
Привет. В общем есть код на паскале,хочу перевести на delphi, однако не получается.вот код
Код:

{$n-,e+,f+}
uses graph,crt;
type TDFunc=function(t:real):real;
var alpha,beta,maxt,a,b,e1,e2,p,k,t,dt:real;
i,drv,mode:integer;


procedure sls(x:byte);
begin
setlinestyle(0,0,3*byte(x<>0))
end;

function v(t:real):real;
begin
v:=a*t+b+e1*sin(p*t+alpha);
end;

function x(t:real):REAL;
begin
x:=a*t*t/2+b*t+k+e2*sin(p*t+beta);
end;

function floattostr(x:real;p:byte):string;
var s:string;
begin
str(x:0:p,s);
floattostr:=s;
end;

procedure drawfunc(x1,y1,x2,y2:longint;tm:real;f:tdfunc;s1,s  2:string);
const dm=1.15;
var t,dt,ax,bx,ay,by,maxy,maxx:real;

function toscreenx(x:real):integer;
begin
toscreenx:=round(ax*x+bx);
end;

function toscreeny(y:real):INTEGER;
begin
toscreeny:=round(ay*y+by);
end;

begin
t:=0;
maxy:=0;
dt:=dm*tm/(x2-x1);
ax:=1/dt;
bx:=x1;
while t<tm do
begin
if f(t)>maxy then
begin

maxy:=f(t);
maxx:=t;
end;
t:=t+dt;
end;

maxy:=maxy*dm;

by:=y2;
ay:=(y1-by)/maxy;

sls(1);
setcolor(2);
line(x1,y1,x2,y2);
line(x1,y2,x2,y2);
sls(1);
setcolor(4);

moveto(x1,toscreeny(f(0)));
t:=0;
while t<tm do

begin

lineto(toscreenx(t),toscreeny(f(t)));
t:=t+dt;
end;

settextjustify(0,2);
setcolor(0);
setlinestyle(1,0,0);
line (toscreenx(tm),y2,toscreenx(tm),toscreeny(f(tm)));  

line (x1,toscreeny(maxy/dm),toscreenx(maxx),toscreeny(maxy/dm));
outtextxy(x1+5,y1,s1);
outtextxy(x2-15,y2+4,s2);
settextjustify(1,2);
outtextxy(toscreenx(tm),y2+4,floattostr(tm,2));
settextjustify(0,0);
outtextxy(x1+5,toscreeny(maxy/dm),floattostr(maxy,2));
end;

begin
write('a=');
read(a);
write('b=');
read(b);
write('E1=');
read(e1);
write('E2=');
read(e2);
write('p=');
read(p);
write('k=');
read(k);
write('alpha=');
read(alpha);
write('beta=');
read(beta);
directvideo:=false;
initgraph(drv,mode,'');
floodfill(1,1,1);
if a>0 then
maxt:=2*pi/p
else
begin
t:=0;
while v(t)>0 do
t:=t+0.0002;
maxt:=t
end;
drawfunc(0,100,310,410,maxt,v,'v,m/s','t,s');
drawfunc(320,100,630,410,maxt,x,'x,m','t,s');
t:=0;
dt:=maxt/8;

textattr:=$87;
writeln(' a=',a:0:2,' b=',b:0:2,' e1=',e1:0:2,' e2=',e2:0:2,
'p=',p:0:2,' k=',k:0:2,' alpha=',alpha:0:2,' beta=',beta:0:2,^m^j);
write('t,s ');
for i:=0 to 8 do
write(floattostr(i/8*maxt,3):8);
write(#13#10'v,m/s');
for i:=0 to 8 do
write(floattostr(v(i/8*maxt),3):8);
write(#13#10'x,m');
for i:= 0 to 8 do
write(floattostr(x(i/8*maxt),3):8);
readkey;
closegraph;
end.

рисовать я думал через paintbox вводить значения нужно с типом риал,можно взять edit и делать через floattostr.выводить тоже в edit или memo, но у меня чет не получается сами графики построить, я так понял line заменяется на moveto->lineto.
в общем кто может помогите с самим выводом графиков.спасибо.

[Son Of Pain]

Что конкретно не получается?

[DooD]

построить графики.пытаюсь строить функцию v или х-не получается.+ в delphi нету line, по идее должно быть moveto liineto заместь line.

[DooD]

кто сделает-с меня $

[Serge_Bliznykov]

Line легко реализуется с помощью MoveTo и LineTo

вот, посмотрите код просто как иллюстрацию к моим словам:

procedure Line(Cvs: TCanvas; x1, y1, x2, y2: integer);
begin
  Cvs.MoveTo(x1, y1);
  Cvs.LineTo(x2, y2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color := ClWhite;
  Canvas.Ellipse(200, 140, 250, 190);
  Line(Canvas, 229, 191, 229, 355);
  Line(Canvas, 192, 224, 228, 224);
  Line(Canvas, 191, 223, 152, 238);
  Line(Canvas, 231, 224, 274, 223);
  Line(Canvas, 274, 223, 297, 188);
  Line(Canvas, 225, 350, 150, 399);
  Line(Canvas, 153, 399, 150, 469);
  Line(Canvas, 151, 469, 117, 470);
  Line(Canvas, 231, 349, 306, 397);
  Line(Canvas, 307, 398, 308, 459);
  Line(Canvas, 308, 461, 344, 461);
end;

[DooD]

апаю!
не получается,люди добрые кто может сделать,заплачу