String ersetzen/ Zugriffsverletzung

[Klaus01]

.. wird dasn eine Art von Hangman Spiel?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
  eingabe1 := edit1.text;
  setLength(lösung, length(eingabe1)); 
  wortLaenge := length(eingabe1);
  for I := 1 to wortLaenge do
    begin
     edit3.Text:=edit3.Text+'_';
    end;

end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var buchstabenLaenge : integer;
var buchstabe : char;
var I : integer;
//var lösung : string;

begin

Grüße
Klaus