Hangman Problem

[Dazek1x]

Ich bin grade dabei Hangman zu programieren. Allerdings habe ich ein problem, wenn ein buchstabe in einem Wort zweimal vorkommt. Bin über jede Hilfe dankbar.

Delphi-Quellcode:

v:= pos(b,x);             {x= das lösungswort}

if pos(b,x)<>0 then              
begin

delete(z,v,1);             
insert(b,z,v)  ;   {z= das gesuchte wort in strichen, b= der geratene buchstabe}
edit1.Text:= z;
end;