[Kailon]

Тебе такое надо?



Если да, то вот

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  a: Integer;
  x, y, t: Real;
begin
  a := 10;
  t := 0;
  while t < 2*PI do
    begin
      x := a*((3*COS(t) + COS(3*t))) / 4;
      y := a*((3*SIN(t) - SIN(3*t))) / 4;
      Series1.AddXY(X, Y, '', clRed);
      t := t + 0.001;
    end;
end;