Здравствуйте, maya91!
Декартов лист - линия, заданная параметрическим уравнением
x=3at/(t^3+1)
y=3at^2/(t^3+1)

Поэтому функция TCissoidaDiokla.F заменяется на функции

function TCissoidaDiokla.x(t:integer): integer;
begin
if t=0 then
F:=0
else
F:=trunc((3*a*t)/(t*t*t+1);
end;

function TCissoidaDiokla.y(t:integer): integer;
begin
if y=0 then
F:=0
else
F:=trunc((3*a*t*t)/(t*t*t+1);
end;

В функции TCissoidaDiokla.Draw(Canvas: TCanvas); вместо
NewPoint:=F(X);

NewPoint:=y(t);
Вводим новую переменную, NewPointx:=x(t)