löschen in txt

[SaFu]

Hi

hab ma ne frage

Die Combobox holt sich bei mir die namen liste.txt und kann man jetzt beim auswählen in der ComboBox den eintrag auch wieder aus der txt löschen

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var i     :integer;
    leherl: Textfile;
    
begin
  AssignFile(leherl,'C:\Dokumente und Einstellungen\Lehrer Liste\'+'liste.txt');
   ReWrite(leherl);
    for i:= 0 to ComboBox3.Items.Count - 1 do
     begin
       WriteLn(leherl,ComboBox3.Items[i]);
     end;
   CloseFile(leherl);
end;

hoffe ich habe es plausiebel erklärt

Danke