Hangman Projekt für Info: Fragen über Fragen

[Ultimator]

Probiert das mal aus, vllt hilfts

Delphi-Quellcode:

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