Listbox Item überschreiben

[Stern]

@mkinzler: danke für deine Antwort. Joa, dass hab ich schon so drinne

Zitat:

ListBox2.Items.Strings[<index>] := Edit.Text;

Allerdings hab ich nun ja das problem, dass ich momentan nicht weiß, wie ich den richtigen Index bekomme.
Wenn ich das wie oben verwendet, wird der geänderte Eintrag an die erste Zeile geschrieben.
Aber ich möchte ja den ausgewählten Eintrag, der ja vielleicht auch in der 10. Zeile steht überschreiben.
Ich muss sagen, dass ich erst seit ein paar Tagen mit Delphi "experimentiere"...

Also kann mir jemand nen Tipp geben, wie ich an den richtigen Index komme?

Liebe Grüße
Steffi

PS: Hier nochmal die wichtigen Codeteile:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
s:string;
begin

     if OpenDialog1.Execute then
     begin
          ListBox1.Clear;
          AssignFile(F, OpenDialog1.FileName);
          try
             Reset(F);
          except
                ShowMessage('Datei konnte nicht geöffnet werden');
                exit;
          end;

          if IOResult <> 0 then
          exit;

          while not EoF(F) do
          begin
          ReadLn(F,s);
          ListBox1.Items.Add(s);
          end;
     CloseFile(F);
    end;
  end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
       for i := 0 to ListBox1.Items.Count -1 do
       begin
            if ListBox1.Selected[i] then
            Edit1.text := ListBox2.Items.Strings[i];
            end;
       end;
procedure TForm1.Button3Click(Sender: TObject);

var
F:TextFile;
s: string;

begin
      if OpenDialog2.Execute then
     begin
          ListBox2.Clear;
          AssignFile(F, OpenDialog2.FileName);
          try
             Reset(F);
          except
                ShowMessage('Datei konnte nicht geöffnet werden');
                exit;
          end;

          if IOResult <> 0 then
          exit;

          while not EoF(F) do
          begin
          ReadLn(F,s);
          ListBox2.Items.Add(s);
          end;
     CloseFile(F);
    end;
end;
procedure TForm1.Button2Click(Sender: TObject);

var i: integer;
begin
     ListBox2.Items.Strings[i] := Edit1.Text;
     ListBox2.Update;
end;