Тест на основе малой теоремы Ферма

[Алексей_xXx]

Есть у кого-нить программа для реализации Теста на основе малой теоремы Ферма? заранее спасибо!!!
вот код. но не хочет работать алгоритм верен вроде как. хочу сделать его без кнопок, не получаеться мож кто поможет? и библиотека не хочет чего то подключаться.

#include <vcl.h>
#pragma hdrstop
#include "NTL/ZZ.h"
#include "Unit1.h"
#include "stdlib.h"
#include "stdio.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma argsused
#pragma resource "*.dfm"

NTL_CLIENT

TForm1 *Form1;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

ZZ i,N,AC,A,d,g,f,q;
ZZ j;
ZZ m;
REZ->Text="Число простое";
g=StrToInt(NS->Text);
q=StrToInt(RS->Text);
for(f=1;f<q;f++)
{
Randomize();
i= 1 + random(g-2);
N=g;
A=i;
do
{
d=N/A;
AC=A;
A=N-A*d;
N=AC;
}
while (A>0);
if(N>1)
{
REZ->Text="Число составное";
break;
}
m=i;
j=g;
if(PowerMod(m,j-1,j)!=1)
{
REZ->Text="Число составное";
break;
}
}
}
//---------------------------------------------------------------------------