löschen in txt

[SaFu]

Hallo erstmal

Danke für die Anwort habe mit deiner hilfe alle festen Pfade ändern können und mit dem Laden und speicher Funktioniert das auch so besser und ist vom text her viel kürzer

Leider habe ich das immer noch nich hinbekommen dass wenn ich mit der Rechten Maustaste den Namen aus der Combobox liste bzw. aus der datei in der die Namen gespeicher sind löschen Kann.

So speicher ich jetzt alles in der combobox und Listbox

Delphi-Quellcode:

Privat
Var plan :TFileName;
   leherl: TFileName;
   Vertrpl :TStringlist;

{StrinGrid Speichern}
procedure TForm7.Button2Click(Sender: TObject);
var x,y:integer;
begin
 if Edit3.Text <> '' then
  begin
   Vertrpl:= TStringlist.Create;
   Combobox3.Items.Add(Edit3.Text);// Text in die ComboBox3 Liste übergeben
   Vertrpl.Add(IntToStr(StringGrid1.Colcount));
   Vertrpl.Add(IntToStr(StringGrid1.Rowcount));
   for x:= 0 to StringGrid1.ColCount-1 do
   for y:= 0 to StringGrid1.RowCount-1 do
   Vertrpl.Add(StringGrid1.Cells[x,y]);
   for x:= 0 to StringGrid1.ColCount-1 do
   Vertrpl.Add(IntToStr(StringGrid1.ColWidths[x]));
   for x:= 0 to StringGrid1.RowCount-1 do
   Vertrpl.Add(IntToStr(StringGrid1.RowHeights[x]));
   Vertrpl.Add(IntToStr(StringGrid1.Clientwidth));
   Vertrpl.Add(IntToStr(StringGrid1.Clientheight));
   Vertrpl.Add(IntToStr(Ord(StringGrid1.ScrollBars)));
   plan:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\'+ Edit3.Text +'.txt';
   Vertrpl.SaveToFile(plan);
   Showmessage('Datei wurde in:' + sLineBreak + plan + ' gespeichert');
    begin
     leherl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt';
     ComboBox3.Items.SaveToFile(leherl);
    end;
   Form8.ListBox1.Clear;
  begin
   leherl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt';
   Form8.ListBox1.Items.LoadFromFile(leherl);
  end;
 end
 else
  Application.MessageBox('Bitte Name des zu Vertrendenden Lehrer eingeben','Speicher Information',48);
end;

geht das löschen vielleicht nicht irgenwie so

Delphi-Quellcode:

if Shift = [ ssRight] then
 begin
   Application.MessageBox('Wollen sie Wirklich den eintrag löschen',Frage,36) = 6 then 
  begin
    Combobox3.selection:= Delete; // nur ein vorschlag??????
  //+ den eintrag in der Textdatei löschen
.
.
.
.
end;

danke