Wieso wird die Methode nicht geladen

[Unregistered]

Hi ,
erstmal mein Code:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "RSAU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//---------------------------------------------------------------------------void TForm::ziehen()

bool TForm1::primer(int zufallszahl)
{ int i=0;
ShowMessage("R");
for (int tester=1;tester<=zufallszahl;tester++)
{
ShowMessage(zufallszahl);
if (zufallszahl%tester==0&&tester!=zufallszahl)
{
i=0;
ShowMessage(zufallszahl);
break;
}
if (zufallszahl%tester!=0&&tester==zufallszahl)
{
ShowMessage(zufallszahl);
i=1;
break;
}
if (zufallszahl%tester==0&&tester==zufallszahl)
{
ShowMessage(zufallszahl);
i=1;
break;
}

}

if (i==1)
{
return true;
}
else
{
return false;
}

}
void TForm1::ziehen()
{

randomize();
RSA Alice;
RSA Bob;

Alice.y= random(20)+1;
Bob.p=random(20)+1;
int pruf;
bool x;
x=true;
x=primer(Alice.y);


int hilf;
while (x==false)
{
Alice.y=random(20)+1;
x=primer(Alice.y);
}
x=primer(Bob.p);
while (x==false)
{
Bob.p=random(20)+1;
x=primer(Bob.p);
}

if (Alice.y>Bob.p)
{
hilf=Bob.p;
Bob.p=Alice.y;
Alice.y=hilf;
}





memaus->Lines->Add("Y von Alice"+AnsiString(Alice.y));
memaus->Lines->Add("P von Bob"+AnsiString(Bob.p));

memaus->Lines->Add("Gewählte Zahl von Alice "+AnsiString(Alice.zahl));
memaus->Lines->Add("Gewähle Zahl von Bob "+AnsiString(Bob.zahl));
Alice.zwischenerg=pow(Alice.y,Alice.zahl);
Alice.zwischenerg=Alice.zwischenerg%Bob.p;
memaus->Lines->Add(AnsiString (Alice.y)+"hoch" +AnsiString (Alice.zahl) +"%" +AnsiString(Bob.p)+" ergibt"+AnsiString(Alice.zwischenerg));
Bob.zwischenerg=pow(Alice.y,Bob.zahl);
Bob.zwischenerg= Bob.zwischenerg%Bob.p;
memaus->Lines->Add(AnsiString (Alice.y)+"hoch" +AnsiString (Bob.zahl) +"%" +AnsiString(Bob.p)+" ergibt"+AnsiString(Bob.zwischenerg));
memaus->Lines->Add("Zwischenergebnis Alice:"+AnsiString(Alice.zwischenerg));
memaus->Lines->Add("Zwischenergebnis Bob:"+AnsiString(Bob.zwischenerg));
hilf=Bob.zwischenerg;
Bob.zwischenerg=Alice.zwischenerg;
Alice.zwischenerg=hilf;
memaus->Lines->Add("Getauschte Zahlen von Alice:"+AnsiString(Alice.zwischenerg));
memaus->Lines->Add("Getauschte Zahlen von Bob"+AnsiString(Bob.zwischenerg));
Alice.erg=pow(Alice.zwischenerg,Alice.zahl);
Alice.erg=Alice.erg%Bob.p;
memaus->Lines->Add(AnsiString(Alice.zwischenerg)+"hoch" +AnsiString (Alice.zahl)+"%"+AnsiString(Bob.p)+"ergibt"+AnsiString(Alice.erg));
Bob.erg=pow(Bob.zwischenerg,Bob.zahl);
Bob.erg=Bob.erg%Bob.p;
memaus->Lines->Add(AnsiString(Bob.zwischenerg)+"hoch" +AnsiString (Bob.zahl)+"%"+AnsiString(Bob.p)+"ergibt"+AnsiString(Bob.erg));

}

//---------------------------------------------------------------------------
void __fastcall TForm1::btnstartClick(TObject *Sender)
{
ziehen();
}
//---------------------------------------------------------------------------


Wieso wird die Methode primer nicht geladen , obwohl es beim kompilieren keinen Fehler gibt ?

[Unregistered]

Hab den ganzen Quelltext in neues Projekt eingefügt und nun klappt es