Auwa, das ist aber umständlich.
Du brauchst doch keine 6 Stringlisten, sondern nur 2.
Delphi-Quellcode:
// ungetestet
// diese Procedur hängt den Inhalt einer Datei an ein TStrings-Objekt an
procedure AppendFileToStrings(const filename:string; list:TStrings);
var
tmp : TStringList;
begin
if FileExists(filename) then
begin
tmp := TStringList.Create;
tmp.LoadFromFile(filename);
list.AppendStrings(tmp);
tmp.Free;
end;
end;
...
if checkbox3.Checked then // nicht auf =True abfragen !
// ein eleganter Einzeiler :-)
AppendFileToStrings('c:\Vokabeltrainer\Vokabeln\gelernt.txt', slfinish);
...