zeig doch mal, wie deine Vergleiche und Zugriffe auf die TStringList aussehen.

bis bald
akari

------------------------------------------------------------------------------
|  Dieses Rätselprogramm stellt ihnen auf Knopfdruck ein Rätsel, welches sie |
|  durch eine Eingabe in das Eingabefeld lösen können, bei jeder falschen Ant|
|  wort wird ein Versuch hinzuaddiert, bei jeder richtigen Antwort wird ein  |
|  Punkt hinzuaddiert. Schon gelöste Rätsel können nicht nocheinmal gelöst   |
|  werden. Diese werden als gelöst gekennzeichnet.                           |
|                                                                            |
|  Den Quellcode habe ich komplett selbst geschrieben und somit ist er       |
|  geistiges Eigentum von Kevin Jakob.										

  Copyright by: Kevin Jakob						Version: 1.1    									
------------------------------------------------------------------------------*/
#include <vcl\vcl.h>
#pragma hdrstop

#include "Basis.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
int Raetselnummer,Versuche,Versuchegesamt,Punkte,Start=1,Messagebox1,Messagebox2;
String Antwort;
TStringList *Raetsel1,*Freischaltcode, *Raetsel2,*Leer,*Weiter,*Geloest,*SicherRaetsel1,*SicherRaetsel2;
const String DRaetsel1="Rätsel1.KJT";
const String DRaetsel2="Rätsel2.KJT";
const String Freischaltung="Freischaltcode.KJT";
const int Raetselanzahl=2;
bool Klick=false,Raetselloesung=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
Leer=new TStringList;
Leer->Add(" ");
SicherRaetsel1=new TStringList;
SicherRaetsel2=new TStringList;
Weiter=new TStringList;
Weiter->Add("Für das nächste Rätsel drücken sie auf Weiter oder auf beenden. ");
Geloest=new TStringList;
Geloest->Add("Dieses Rätsel ist bereits gelöst !");
Raetsel1=new TStringList;
Raetsel2=new TStringList;
Freischaltcode=new TStringList;
randomize();
try
{
	Raetsel1->LoadFromFile(DRaetsel1);
}
catch(...)
{
	Application->MessageBox("Fehler beim Laden der Datei: Rätsel1.KJT, stellen sie sicher, dass diese Datei vorhanden ist!","Fehler",0+16);
	Raetsel1->Add("Fehler beim Laden dieses Rätsels!");
}
try
{
	Raetsel2->LoadFromFile(DRaetsel2);
}
catch(...)
{
 	Application->MessageBox("Fehler beim Laden der Datei: Rätsel2.KJT, stellen sie sicher, dass diese Datei vorhanden ist!","Fehler",0+16);
	Raetsel2->Add("Fehler beim Laden dieses Rätsels!");
}
try
{
//Hier will ich die if Abfrage, doch das geht nicht.
	Freischaltcode->LoadFromFile(Freischaltung);
}
catch(...)
{
	Application->MessageBox("Sie können das Programm nicht benutzen, da kein Freischaltcode vorhanden ist. Drücken sie auf beenden und geben sie im Freischaltprogramm einen gültigen Freischaltcode ein.","Achtung!",0+16);
}
SicherRaetsel1=Raetsel1;
SicherRaetsel2=Raetsel2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Application->MessageBox("Copyright by: Kevin Jakob, Version: 1.1","Info",0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int Sicher;
Sicher=Application->MessageBox("Sind sie sicher?","Beenden",4+32);
if(Sicher==IDYES)Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if(Start==1)
{
	Klick=true;
	Raetselnummer=random(2);
	if(Raetselnummer==0)
	{
		RichEdit1->Lines=Raetsel1;
    	Label2->Caption="Lösen sie dieses Rätsel !";
	}
	if(Raetselnummer==1)
	{
		RichEdit1->Lines=Raetsel2;
   	 	Label2->Caption="Lösen sie dieses Rätsel !";
	}
}
if(Start==2)
{
    Messagebox1=Application->MessageBox("Wollen sie neu starten?","Neustart",4+32);
    if(Messagebox1==IDYES)
    {
    	Application->MessageBox("Alle Werte wurden zurück gesetzt!","Hinweis",0+48);
        Raetselloesung=false;
        Raetsel1=SicherRaetsel1;
        Raetsel2=SicherRaetsel2;
        Label2->Caption="Hier wird ihnen das Rätsel gestellt.";
        Edit1->Text="";
        RichEdit1->Lines=Leer;
        Versuche=0;
        Label6->Caption=IntToStr(Versuche);
        Versuchegesamt=0;
        Label8->Caption=IntToStr(Versuchegesamt);
        Punkte=0;
        Label4->Caption=IntToStr(Punkte);
        Start=1;
   	}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Start=2;
if(Klick==false)
	Application->MessageBox("Sie müssen zuerst auf Start klicken !","Starten",0+48);
if(Klick==true && Raetselloesung==false)
{
	Antwort=Edit1->Text;
	if(Raetselnummer==0)
    {
    	if(Antwort=="Luft" || Antwort=="luft" || Antwort=="die Luft" || Antwort=="die luft")
        {
        	Versuchegesamt=Versuchegesamt+1;
            Label8->Caption=IntToStr(Versuchegesamt);
        	Versuche=Versuche+1;
            Label6->Caption=IntToStr(Versuche);
            Punkte=Punkte+1;
            Label4->Caption=IntToStr(Punkte);
            Label2->Caption="Diese Antwort ist richtig !";
            RichEdit1->Lines=Weiter;
            Raetsel1=Geloest;
            Edit1->Text="";
            Raetselloesung=true;
        }
        if(Antwort!="Luft" && Antwort!="luft" && Antwort!="die Luft" && Antwort!="die luft")
        {
        	Label2->Caption="Diese Antwort ist falsch !";
            Versuchegesamt=Versuchegesamt+1;
            Label8->Caption=IntToStr(Versuchegesamt);
            Versuche=Versuche+1;
            Label6->Caption=IntToStr(Versuche);
        }
    }
    if(Raetselnummer==1)
    {
    	if(Antwort=="Ziel" || Antwort=="ziel" || Antwort=="das Ziel" || Antwort=="das ziel")
        {
        	Versuche=Versuche+1;
            Versuchegesamt=Versuchegesamt+1;
            Label6->Caption=IntToStr(Versuche);
            Label8->Caption=IntToStr(Versuchegesamt);
            Punkte=Punkte+1;
            Label4->Caption=IntToStr(Punkte);
        	Label2->Caption="Diese Antwort ist richtig !";
            RichEdit1->Lines=Weiter;
            Raetsel2=Geloest;
            Edit1->Text="";
            Raetselloesung=true;
        }
        if(Antwort!="Ziel" && Antwort!="ziel" && Antwort!="das Ziel" && Antwort!="das ziel")        {
        	Label2->Caption="Diese Antwort ist falsch !";
        	Versuche=Versuche+1;
            Versuchegesamt=Versuchegesamt+1;
            Label8->Caption=IntToStr(Versuchegesamt);
            Label6->Caption=IntToStr(Versuche);
        }
    }
}
if(Punkte==Raetselanzahl)
{
	Messagebox2=Application->MessageBox("Sie haben alle Rätsel richtig gelöst. Drücken sie OK für einen Neustart und Abrechen für beenden.","Neustart",4+16);
    if(Messagebox2==IDYES)
    {
    	Start=2;
    	Button5Click(Sender);
    }
    if(Messagebox2!=IDYES)
    	Button2Click(Sender);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Klick==false)
	Application->MessageBox("Sie müssen zuerst auf Start klicken !","Starten",0+48);
if(Klick==true)
{
    Versuche=0;
    Label6->Caption=IntToStr(Versuche);
    Raetselloesung=false;
	Raetselnummer=random(2);
    if(Raetselnummer==0)
	{
		RichEdit1->Lines=Raetsel1;
    	Label2->Caption="Lösen sie dieses Rätsel !";
	}
	if(Raetselnummer==1)
	{
		RichEdit1->Lines=Raetsel2;
   	 	Label2->Caption="Lösen sie dieses Rätsel !";
	}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1Click(TObject *Sender)
{
Application->MessageBox("Geben sie in das Eingebefeld neben diesem Text ihre Antwort ein!","Hinweis",0);	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label2Click(TObject *Sender)
{
Application->MessageBox("In dem Eingabefeld unter diesem Text wird ihnen das Rätsel gestellt !","Hinweis",0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label3Click(TObject *Sender)
{
Application->MessageBox("Hier wird ihnen die Punktzahl angezeigt.","Hinweis",0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label5Click(TObject *Sender)
{
Application->MessageBox("Hier wird ihnen die Versuchszahl angezeigt, die sie für das aktuelle Rätsel bisher gebraucht haben.","Hinweis",0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label7Click(TObject *Sender)
{
Application->MessageBox("Hier wird ihnen die Gesamtversuchszahl, des derzeitigen Spiels angezeigt.","Hinweis",0);
}
//---------------------------------------------------------------------------

Dort wo Hier will ich die If Abfrage, dort wollte ich sie machen, doch der Builder reagiert nicht. Bitte helft mir. Ich bin noch Anfänger also nicht über die Form aufregen, falls sie irgendwie schlecht ist.

und wie sehen deine Daten in Freischaltcode.kjt aus? Was genau soll mit der if-Bedingung in den Daten geprüft werden?
Allgemein gilt :

AnsiString Buffer;
int Lines;
TStringList *List;
Buffer = List->Text; // gesamter Text der StringList
Lines = List->Count; // Anzahl der Zeilen des Textes
Buffer = List->Strings[0]; // Zugriff auf erste Zeile, Zeilen gehen von 0 bis Count -1
Buffer = List->Values["ValueName"]; 
// Zugriff auf den Wert mit der Bezeichnung ValueName, wenn in der 
// Datei so ein Eintrag vorhanden ist :
// <Zeilenende>ValueName=Value<Zeilenende>

bis bald
akari

if(Freischaltcode=="DVNDEFK")

machen oder lieber mit einer anderen Variable überprüfen lassen wie hier:

if(Freischaltcode==Ueberpruefer)

???
Der Freischaltcode ist nur ein Beispiel.

da du schon einige const String hast, nimm noch mal einen. Wenn dann in der Datei nur der Code steht, reicht dann das :

const String Code = "LegalCopy";
...
if (Freischaltcode->Text == Code)
{
  // Dateiinhalt ist korrekt
  }
else
{
  // Dateiinhalt ist nicht korrekt
  }

bis bald
akari

Freischaltcode->Text==RealCode;

und der Code stimmt in der KJT Datei und in der const string überein. Macht er trotzdem nicht. Er sagt immer erwäre ungültig, obwohl er richtig ist, ich verstehe das nicht.

dann stehen in der Datei noch zusätzliche Zeichen drin (z.B. Zeilenumbruch).
Nimm als Überprüfung mal :

if (Freischaltcode->Text.AnsiPos(Code) > 0)

dann wird geschaut, ob Code überhaupt in der Datei ist.

bis bald
akari

AnsiString Buffer;
int Lines;
TStringList *List;
Buffer = List->Text; // gesamter Text der StringList
Lines = List->Count; // Anzahl der Zeilen des Textes
Buffer = List->Strings[0]; // Zugriff auf erste Zeile, Zeilen gehen von 0 bis Count -1
Buffer = List->Values["ValueName"]; 
// Zugriff auf den Wert mit der Bezeichnung ValueName, wenn in der 
// Datei so ein Eintrag vorhanden ist :
// <Zeilenende>ValueName=Value<Zeilenende>

die Lines Variable für einen Sinn hat. Eigentlich gar keinen oder?

In den Zeilen, die du gepostet hats, brauchst du es wirklich nicht. Kommentier es doch einmal aus, dann wirst du schon sehen, ob du es endgültig rausnehmen kannst.

bis bald
akari