Hilfe beim "Glücksrad"

[Bansh]

Haloa zusammen, versuche gerade einen Ableger vom bekannten "Glücksrad" zu machen.

Das Poblem liegt nu daran das wenn ich Worte mit 2 gleichen Buchstaben habe er nur eins hinschreibt:

Delphi-Quellcode:

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

Das er nur einmal soweit geht bis ers gefunden hat und dann aufhört ist klar. Nur wie bekomm ich hin
das er auch das zweite findet? Und das zweite Problem wäre das wenn ich was falsches eingebe (andren Buchstaben als gesucht) er mir nen .exe error ausgibt

Hoffe könnt mir helfen

Mfg Bansh