mehrere stringlists hintereinander anhängen

[sx2008]

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); 
...