Fehlersuche ;D

[Sande]

Hallo, also es geht um das Spiel Hangman.
Man sieht 3 Editfeld. In das Ertse also ERatewort tippt der erste Spieler ein Wort ein das so erscheint *****.
Der 2 Spieler muss in das 2 Editfeld einzelne Buchstaben eintippen.
Im 3 editfeld stehen dann Fragezeichen (genauso viele Fragezeichen Wie Buchstaben des Wortes von Spieler 1). Wird ein Buchstabe erraten so wird aus dem Fragezeichen der Richtige Buchstabe.
Das Problem ist jedoch dass das nicht klappt. tippe ich ddddd im Ratewort ein und in das 2. Editfeld d dann kommt im 3. editfeld nicht die Lösung : ddddd.
Wahrscheinlich liegt der Fehler vor meiner Nase aber ich finde ihn nicht

bitte helft mir hier unten mein quelltext, danke im Voraus

Delphi-Quellcode:

unit UHaupt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, URaetsel;

type
  TForm1 = class(TForm)
    LRatewort: TLabel;
    MainMenu1: TMainMenu;
    ERatewort: TEdit;
    LBuchstabe: TLabel;
    EBuchstabe: TEdit;
    BSetzen: TButton;
    ELoesungswort: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BSetzenClick(Sender: TObject);
    procedure ERatewortExit(Sender: TObject);
    procedure ERatewortEnter(Sender: TObject);
    procedure EBuchstabeEnter(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Raetsel: TRaetsel;
  swort:string;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
   begin
     Raetsel:= TRaetsel.Create;
     i:=0;
   end;

procedure TForm1.FormDestroy(Sender: TObject);
   begin
      Raetsel.free;
   end;

procedure TForm1.BSetzenClick(Sender: TObject);
   begin
      Raetsel.BuchstabeSenden(EBuchstabe.Text);
   end;

procedure TForm1.ERatewortExit(Sender: TObject);
   var leange,i:integer;
   begin
      swort:=eRatewort.text;
      raetsel.Init(swort);
      Ebuchstabe.setfocus;
      if Raetsel.pruefen=true then begin
                    showmessage('falsch');
                    ERatewort.setfocus;
                    Eratewort.clear;
                    end
                    else eloesungswort.text:=Raetsel.Zielwort;

   end;

procedure TForm1.ERatewortEnter(Sender: TObject);
   begin
      ERatewort.Text:='';
      eLoesungswort.text:='';
      EBuchstabe.text:='';
   end;

procedure TForm1.EBuchstabeEnter(Sender: TObject);
   begin
      ebuchstabe.Clear;
   end;

end.

Delphi-Quellcode:

unit URaetsel;

interface
  type
   TRaetsel=class (Tobject)
    private
       sWort,
       sZielwort:string;
       byVersuche:byte;
       procedure ZielWortSetzen;

    public
       constructor create;
       procedure Init (sSuchwort:string);
       function Zielwort:string;
       procedure BuchstabeSenden(sBuchstabe:string);
       function Rateversuche:byte;
       function pruefen:boolean;
    end;


implementation
       constructor TRaetsel.create;
       begin
       end;

       procedure TRaetsel.ZielWortSetzen;
         var i,laenge:integer;
         begin
            laenge:=length(sWort);
            For i:=1 To laenge do sZielwort:=sZielwort+'?';
            end;

       procedure TRaetsel.Init (sSuchwort:string);
         begin
            swort:=sSuchwort;
            sZielwort:='';
            byversuche:=0;
         end;

       function TRaetsel.Zielwort:string;
         begin
            Zielwortsetzen;
            Zielwort:=sZielwort;
         end;


       procedure TRaetsel.BuchstabeSenden(sBuchstabe:string);
       var iStelle:integer;
           busta:string;
         begin
             byVersuche:=byVersuche+1;
             If sBuchstabe=sWort then sZielwort:=sWort else begin
             For iStelle:=1 to length(swort) do begin
                                busta:=copy(sWort,iStelle,1);
                                If busta=sBuchstabe then begin
                                           delete(sZielwort,iStelle,1);
                                           insert(sBuchstabe,sZielwort,iStelle);
                                           end;
                                           end;
                                           end;
                                           end;
       
       function TRaetsel.Rateversuche:byte;
         begin
             Rateversuche:=byVersuche;
         end;

       function TRaetsel.pruefen:boolean;
       var iStelle:integer;
       busta:string;
          begin
             pruefen:=false;
             for iStelle:=1 to length(swort) do begin
                           busta:=copy(sWort,iStelle,1);
                           If(busta<'A') or (busta >'Z') then pruefen:=true;
             end;
             end;

end.