Lazarus probléma

Most kezdtem egy Pascalt/Lazarus-t tanulni.
Egy olyan programocskát írok, ami kiírja az n-edik prímet (Lazarus-szal). Előtte megírtam a parancssoros verziót pascalban és c++ -ban is. Ha beírok egy számot, és a Számolj-ra kattintok, akkor tökéletesen működik. De ha utána beírok egy másik számot, és megint a Számoljra kattintok, akkor minden esetben 2 -t ír ki (Akár a 100. prímre is). Ezután, ha beírok egy számot, és megint a számolj-ra kattintok, akkor vagy kiír 2-t megint, és utána a többi próbálkozásnál már prímet ír ki, de nem az általam megadottodikat (Ezt hogy tudnám szebben megfogalmazni?:)), vagy (Ha jól néztem ez akkor történik, ha az első beírottnál kisebbet írok be) lenyomva marad a gomb, és csak dolgozik, kilépési kérésre nem reagál stb. (Talán a végtelen ciklsban marad? )

Mit rontottam el?

A forráskód szerintem lényeges része: (Ez fut le, ha a számolj-ra kattintok)

procedure TForm1.Button1Click(Sender: TObject);
begin
vegtelen := 5;
n := 1;
prime := 1;
text := Edit1.text;
Val(text, primk, primk);
while vegtelen = 5 DO
begin
n := n+1;
o := 1;
while o
begin
o := o+1;
if o = n then break;
m := n mod o;
if m = 0 then
begin
prime := 0;
break;
end
else
prime := 1;
end;

if prime = 1 then
prsz := prsz+1;
if primk = prsz then
begin
Str(n,text2);
Edit2.text := text2;
n := 1;
break;
prime := 0;
end;
end;
end;

Köszönöm: Zsolt