Hilfe beim "Glücksrad"

[Klaus01]

Habe Dir mal meine exe angehängt.
Ist meines Erachtens leicher durch einen String zu suchen
als über mehrere Editfelder.


[edit1]
Habe Deine button.click Methode einmal etwas umgestellt.

Delphi-Quellcode:

procedure TForm1.btnVersuchClick(Sender: TObject);
var i,v : Integer;
begin
  for i := 1 to length(wort) do
  Begin
  try
    //v := pos(LowerCase(edtVersuch.Text),LowerCase(wort))-1;
      if lowerCase(edtVersuch.Text) = lowerCase(wort[i]) then
        objEdt[i-1].Text := Uppercase(edtVersuch.Text);
      //else
      //  objEdt[v].Text := LowerCase(edtVersuch.Text);
    except
    end;
  end;
end;

Was Du noch ausbessern könntest, ist die Darstellung des Textes bzw. deren Platzhalter wenn das Wort mal größer als
6 Buchstaben ist.
Und es passiert nichts wenn das Wort erraten wurde.
[edit1]

Grüße
Klaus