x = cos (t) sin (at);

y = sin (t) cos (bt);

Тн =< t= <Tk и изменяет с шагом Th

procedure TForm1.BitBtn1Click(Sender: TObject);

var x, y, xa, xb, t:real;

begin

 xa:= strToFloat(edit1.Text);

 xb:= strToFloat(edit2.Text);

 t:= strToFloat(edit3.Text);

 chart1.Series[0].Clear;

 x:= xa;

repeat

  y:=sin(x)*cos(xa);

  chart1.Series[0].AddY(y);

  x:= x+t;

  x:=cos(y)*sin(xb);

  chart1.Series[0].AddY(y);

  y:=xb;

until x>=xb or y>=xb;

end;

end.

for i:=(-30) to 30 do
  Series1.AddXY(i, i*i);