Bestimmte Zeile via TStringList löschen

[Flopa]

Hallo Leute,
ich bin ein kompletter Anfänger und wollte mir ein Programm zum Abfragen von Vokabeln abfragen.

Das klappt alles auch schon soweit, nur möchte ich, dass eine Vokabel aus einer .txt-Datei gelöscht wird, wenn sie richtig beantwortet wurde.

Ich sitze heute schon den ganzen Tag dran und habe gegooglet, aber mit List.Delete(1) klappt das irgendwie nicht.

Delphi-Quellcode:

List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
   for i3:=0 to num-1 do begin
       ReadLn(td3,s2);
       ReadLn(td4,s3);

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

       if (uppercase(abfrage2)=uppercase(s3)) then begin
       showmessage('Richtig!');
        list.Delete(i3);
       end;

Jedoch bleibt die Zeile immer erhalten und wird einfach nicht gelöscht.
Danke schon mal für eure Hilfe.
Liebe Grüße,

Flo