[Мандрюля]

а если на канвасе просто сделать, то как?

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
 x,y,t,a:real;
begin
a:=2;
Form1.Canvas.MoveTo(0, ClientWidth div 2);
Form1.Canvas.LineTo (ClientHeight, ClientWidth div 2);
Form1.Canvas.MoveTo(ClientHeight div 2,0);
Form1.Canvas.LineTo (ClientHeight div 2, ClientWidth);
{Form1.Canvas.Pixels[200,200]:=clRed; }
while t < 2*PI do
    begin
      x:= a*((3*COS(t) + COS(3*t))) / 4;
      y:= a*((3*SIN(t) - SIN(3*t))) / 4;
     Form1.Canvas.Pixels[round(X),round(Y)];
      t := t + 0.001;
      end;

Админ: Не забываем теги для оформления кода.

у меня система координат выводится, а сам график нет