Программирование циклов с неизвестным числом повторений

[Any13]

Вот дана следующая задача.
Дано: q=2, dq=-0.1. F вычислять по формуле F:=5.26*q*sqrt(P), P:=sqr(q)*q+q+1. Считать F до тех пор, пока под-коренное выражение >0.2. Определить k- количество вычислений F. Вывести на экран q, F, k.

Вот программу составила, запускается, ввожу данные и все, окошко виснет и не хочет выдавать результат. Подскажите, что не так. Может в коде ошибка.

unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
Button1: TButton;
BitBtn1: TBitBtn;
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
q,dq,P,F:real;
n:integer;
begin
q:=strtofloat(LabeledEdit1.Text);
dq:=strtofloat(LabeledEdit2.Text);
n:=0;
P:=sqr(q)*q+q+1;
repeat
F:=5.26*q*sqrt(P);
listbox1.Items.Add(floattostrf(q,ff fixed,2,1)+' '+floattostr (F)+' '+floattostr (P));
q:=q+dq;
inc(n);
P:=sqr(q)*q+q+1;
until P<=0.2;
LabeledEdit3.Text:=inttostr(N);
end;
end.