[placiba]

Второй вариант легоко реализовать с помощью компонента TChart, у тебя функция задана параметрически

Код:

const th=0.01;
var
t, tmax:real;
begin
a:=strtofloat(edit1.text);
tmax:=strtofloat(edit2.text);
t:=0;
while t<tmax//максимальное время 
do
begin

chart1.series[0].AddXY(a*sin(t),a*(cos(t)+ln(Sin(t/2)/Cos(t/2)));  
t:=t+th;
end;
end;