Hangman Projekt für Info: Fragen über Fragen

[Blub]

HILFE!!!!
Mein Hangman muss bis nächsten Dienstag fertig sein!! Aber wie das eigentlich immer so ist fängt der Schüler von heute ca. eine Woche vorher an sich gedanken zu machen, wie er denn sein Projekt fertigstellen soll!!!
Auf jedenfall hab ich mich grad wieder hingesetzt und meinen Quelltext durchgeschaut, und der sieht für mich auch irgendwie logisch aus! Allerdings funzter net

Hier soweit mein Code, bei dem ich igendwo Fehler vermute:

Delphi-Quellcode:

//Funktion zum prüfen, ob der Buchstabe enthalten ist.

function BuchstabeEnthalten (Buchstabe,RateWort:String): boolean;
var i,n: integer;
    Enthalten: boolean;
begin
 Enthalten:=false;
 n:=WortLaenge(RateWort);
  for i:=1 to n do
   if RateWort[i]=Buchstabe then
   Enthalten:= true else                             
   Enthalten:=false;

 BuchstabeEnthalten:= Enthalten;
end;

und

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var B:String;
begin
B:=Edit1.Text;

If Edit1.Text <> '' then
 if BuchstabeEnthalten(B,RateWort)=true then
 Label2.Caption:='ok' else
 Label2.Caption:='nö'
else
Label2.Caption:='bitte was eingeben';
end;

Ich hoffe echt, dass ihr mir hierbei weiterhelfen könnt.

Außerdem müsst ich noch wissen, ob bzw. wie ich Delphi sagen kann, dass der bei einer Canvas jedesmal einen Strich mehr macht, wenn ein Fehler gemacht wurde, bzw wie ich Delphi sagen kann, dass er jedesmal ein neues Bild lädt, wenn ein Fehler gamcht wurde. Wobei mir das mit den Bildern irgendwie lieber wär

VIELEN DANK FÜR EURE HILFE!!!