Цветок на осях координат Delphi

procedure flowr(t:real; var r:real);
Begin
r:=sin(7/4*t);
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  x1 = -10;
  x2 = 10;
  m = 50;
  var
  x0,y0,i:integer;
  x,y:real;
 
begin
 
{Making everything white}
 
image1.canvas.Pen.Color:=clwhite;
i:=0;
while i<=image1.width do
begin
image1.Canvas.MoveTo(i,0);
image1.Canvas.LineTo(i,image1.height);
i:=i+1;
end;
 
 with image1 do
      begin
      x0:=width div 2;
      y0:= height div 2;
 
      with Canvas do
           begin 
           Pen.Color :=ClBlack; { Рисую оси координат}
           Pen.Width := 1;
           MoveTo(0,y0);
           LineTo(Width,y0);
           MoveTo(x0,0);
           LineTo(x0,Height);
 
           Pen.Color := CLRed;
 
           x:=x1;
           flowr(x,y); {рисую синусоиду}
           MoveTo(x0+Trunc(x*m),y0-Trunc(y*m)); 
           while x<x2 do
           begin
           x:=x+0.01;
           flowr(x,y);
           LineTo(x0+Trunc(x*m),y0-Trunc(y*m));
           end;
      end;
   end;
end;

procedure flowr(t,r:real);
Begin
r:=sin(7/4*t);
x:=r*cos(t);
y:=r*sin(t);
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  x1 = -10;
  x2 = 10;
  m = 170;
  var
  x0,y0,i:integer;
  t,r:real;
begin
 
{Making everything white}
 
image1.canvas.Pen.Color:=clwhite;
i:=0;
while i<=image1.width do
begin
image1.Canvas.MoveTo(i,0);
image1.Canvas.LineTo(i,image1.height);
i:=i+1;
end;
 
 with image1 do
      begin
      x0:=width div 2;
      y0:= height div 2;
 
      with Canvas do
           begin
           Pen.Color :=ClBlack;
           Pen.Width := 1;
           MoveTo(0,y0);
           LineTo(Width,y0);
           MoveTo(x0,0);
           LineTo(x0,Height);
 
           Pen.Color := CLRed;
 
           x:=x1;
           flowr(t,r);
           MoveTo(x0+round(x*m),y0-round(y*m));
           while t<50 do
           begin
           t:=t+0.01;
           flowr(t,r);
           LineTo(x0+Trunc(x*m),y0-Trunc(y*m));
           end;
      end;
   end;
end;

function f(t:real):real;
Begin
result:=sin(7/4*t);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  x0,y0,x1,y1,x2,y2,i,x,y:integer;
  t,r,m:real;
  s:string;
begin
Image1.Width:=Image1.Height;
x1:=30;
y1:=30;
x2:=Image1.Width-30;
y2:=Image1.Height-30;
x0:=(x2+x1)div 2;
y0:=(y2+y1) div 2;
m:=(y0-y1)/5;
 
with Image1.Canvas do
 begin
  brush.Color:=clWhite;
  rectangle(0,0,Image1.Width,Image1.Height);
  t:=0;
  pen.Style:=psDot;
  while t<=2*pi do
   begin
    x:=x0+round(5*m*cos(t));
    y:=y0-round(5*m*sin(t));
    Moveto(x0,y0);
    Lineto(x,y);
    t:=t+pi/6;
   end;
  brush.Style:=bsClear;
  pen.Style:=psSolid;
  MoveTo(x1,y2);
  LineTo(x2,y2);
  MoveTo(x1,y1);
  LineTo(x1,y2+5);
  MoveTo(x1,y0);
  LineTo(x2,y0);
  MoveTo(x0,y1);
  LineTo(x0,y2+5);
  for i:=0 to 5 do
   begin
    ellipse(x0-round(i*m),y0-round(i*m),x0+round(i*m),y0+round(i*m));
    MoveTo(x0-round(i*m),y2-3);
    LineTo(x0-round(i*m),y2+3);
    MoveTo(x0+round(i*m),y2-3);
    LineTo(x0+round(i*m),y2+3);
    MoveTo(x1-3,y0-round(i*m));
    LineTo(x1+3,y0-round(i*m));
    MoveTo(x1-3,y0+round(i*m));
    LineTo(x1+3,y0+round(i*m));
    str(i/5:0:1,s);
    textout(x0+round(i*m),y2+10,s);
    if i<>0 then textout(x0-round(i*m),y2+10,'-'+s);
    textout(x1-20,y0-round(i*m),s);
    if i<>0 then textout(x1-25,y0+round(i*m),'-'+s);
   end;
 t:=0;
 m:=y0-y1;
 while t<=8*pi do
  begin
   r:=f(t);
   x:=x0+round(r*m*cos(t));
   y:=y0-round(r*m*sin(t));
   Pixels[x,y]:=clRed;
   t:=t+0.001;
  end;
 end;
end;