Funktion für Galgenraten will nicht Funktionieren :(

[Pr0g]

Ein paar Verbesserungen für deinen Code, falls du zu einem Punkt fragen hast, dann kann man dir bestimmt auch ein Beispiel geben:

• Pack die globalen Variablen in den "private"-Bereich der Form und fülle sie im onCreate mit Werten.
• Statt "Variable := Variable + 1;" zum erhöhen, nimm besser immer "Inc(Variable)". Das gleiche gilt für Minus, dort würdest du "Dec" nehmen.
• Du willst deiner Funktion "buchstabe" zwar im Code den Buchstaben in der Variable "a" als Parameter übergeben, hast aber in der Funktion selber keine Parameter angegeben.
• Die Funktion "buchstabe" könntest du vereinfachen:
  
  Delphi-Quellcode:

  Function buchstabe(const AChar: Char) : Boolean;
  begin
    Result := (Pos(AChar, Wort[i]) > 0);
  end;

• Was ist Wort[i]? Du hast zwar zwei Variablen "wort" und "wort1", aber du müsstest ein Array anlegen, um dort per Index auf ein Element zugreifen zu können.
• Du hast nirgendwo die Variable "i" deklariert, welche du aber für den Zugriff auf "Wort[i]" nutzen wolltest.
• Du brauchst eine Booleanvariable nicht auf "True" oder "False" zu prüfen, hier ein Beispiel:
  
  Delphi-Quellcode:

  //statt
  if Variable = True then
  //schreibe
  if Variable then
  
  //statt
  if Variable = False then
  //schreibe
  if not Variable then

• Du willst wohl mit "a := Lowercase(Edit1.Text)[1];" das erste Zeichen aus dem Edit auslesen. Dazu müsstest du den Text aber erst in einem String speichern, denn erst dann kannst du per Index auf ein Zeichen zugreifen.
• Nim statt OnActive der Form OnCreate.

MfG Pr0g

Edit: hab wohl ein bisschen lange mit dem Schreiben gebraucht