Bestimmte Zeile via TStringList löschen

[Flopa]

Vielen Dank schonmal, nur leider kommt immer noch eine Fehlermeldung

Delphi-Quellcode:

    for i3:=num  downto 0 do begin
       ReadLn(td3,s2);
       ReadLn(td4,s3);

       abfrage2:=inputbox('Wiederholung',s2,'');

       if (uppercase(abfrage2)=uppercase(s3)) then begin
       showmessage('Richtig!');
       List.Delete( List.IndexOF(s3) );
       List.SaveToFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
       list.free;
       end
       else if (uppercase(abfrage2)<>uppercase(s3)) then begin
       showmessage('Falsch!');
       end;