Delphi-Quellcode:
If K<SS.Count Then
begin
TS.Free;
TS := nil;
Das TS.Free kann eine
access violation auslösen wen TS weder Nil noch eine Referenz auf ein valides Objekt ist, d.h. irgendwelchen Müll enthält. Falls TS eine lokale Variable ist muss sie in irgend einer Weise initialisiert worden sein bevor Du Free gefahrlos darauf anwenden kannst. Der Compiler macht das
nicht für dich!