Я вам щяс всем как причиню добро!...
procedure TFamPapam.BamBamClick(Sender: TObject);
var pam,pam_,tararam,tiryam_pam_pam:real;
tryam:integer;
begin
GetParam;tryam:=0;tararam:=0.0001;
repeat
inc(tryam);
pam:=papam*Param(pum,pum_)+pum;
pam_:=-1*(papam_*Param_(pum,pum_)-pum_);
tiryam_pam_pam:=sqrt(sqr(pam-pum)+sqr(pam_-pum_));
pum:=pam;pum_:=pam_;
until tiryam_pam_pam<tararam;
end;

И оно работает.

ЗЫ это не моё, но я в студенчестве ишшо не так извращался....