String ersetzen/ Zugriffsverletzung

[DevilDriver]

Delphi-Quellcode:

var
  Form1: TForm1;
  var eingabe1 : string;
  var wortLaenge : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
eingabe1 := edit1.text;

wortLaenge := length(eingabe1);
for I := 1 to wortLaenge do
begin
  edit3.Text:=edit3.Text+'_';
end;

end;

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

begin

buchstabe := edit2.Text[1];
buchstabenLaenge := length(buchstabe);
if buchstabenLaenge>=2 then
begin
  label2.Caption:= 'Bitte geben sie nur einen Buchstaben ein!';
end
else
begin

  for I := 1 to wortLaenge do
  begin
  if eingabe1[I]=buchstabe  then
  begin
     lösung[I]:=buchstabe;
  end;
  end;


end;




end;