TForm1 *Form1;
int Nr;
const int Max = 9;
const String DateiName1 = "English.txt";
const String DateiName2 = "German.txt";
String Eingabe;
String richtig;
int Hallo;
const int kp = 2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Nr=random (Max) ;
Hallo=random (kp)  ;
TStringList *list = new TStringList();
list->LoadFromFile(DateiName1);

TStringList *list2 = new TStringList();
list2->LoadFromFile(DateiName2);
if (Hallo==0)

Edit1->Text = list->Strings[Nr];
richtig = list2->Strings[Nr];

if (Hallo==1)

Edit2->Text = list2->Strings[Nr];
richtig = list->Strings[Nr];

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (Hallo==0)
Eingabe = String (Edit2->Text);
if (Hallo==1)
Eingabe = String (Edit1->Text);

if ((Hallo==0) && (richtig==Eingabe))
Edit2->Text ="Right!";
if ((Hallo==0) && (richtig!=Eingabe))
Edit2->Text ="Wrong!";
if ((Hallo==1) && (Eingabe==richtig))
Edit1->Text ="Right!";
if ((Hallo==1) && (Eingabe!=richtig))
Edit1->Text ="Wrong!";
}

Das ist mein Gesammter Quellcode. Bitte kurz überfliegen. Weil nämlich jetzt kommt mein Problem. Habe 2 Datein gemacht einmal English.txt und German.txt. Die dateien werden in eine Stringlist geladen. Per zufall wird entschieden welche Vokabel angezeigt wird. Per zufall wird auch entschieden ob nach der Deutschen oder Eglischen übersetzung gefragt wird. Nun das Problem: Wenn nach der Englischen übersetzung für das angezeigte Deutsche Wort gefragt wird funktioniert es. Anderrum aber nicht so ganz.

Zum Beispiel:
In edit2 wird Helo angezeigt. Dann tippe ich in Edit1 Hallo ein. Dann ´gibt mir das Programm right aus, schreibe ich halo oder hans dann zeigt er wrong. Das funktioniert also.
Aber wenn in Edit1 Hallo steht und ich dann helo in edit2 eingeben will zeigt er wrong an. Nur wenn ich in edit2 ebenfalls Hallo eingebe zeigt er right an.

Ich hoffe man konnte mir Folgen. Bitte brauche dringend Hilfe... Meine English Zensur könnte leiden :´-(

Schonmal vielen Dank im Vor raus

if (Hallo==0)
{
  Edit1->Text = list->Strings[Nr];
  richtig = list2->Strings[Nr];
} else
{
  Edit2->Text = list2->Strings[Nr];
  richtig = list->Strings[Nr];
}

Du solltest die Stringlisten nach Gebrauch löschen. Deine Vergleichsfunktion ist auch etwas umständlich. Bei Stringvergleichen ist die Reihenfolge egal. Es reicht also hier der Vergleich richtig==Eingabe.

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  if (Hallo==0) Eingabe = Edit2->Text;
  else Eingabe = Edit1->Text;

  if (richtig==Eingabe) Edit2->Text ="Right!";
  else Edit2->Text ="Wrong!";
}

Ich habe jetzt nicht genau drüber geschaut. Da ist bestimmt noch mehr.
Achso, Hallo heißt auf Englisch Hello (doppel l) und nicht helo.