mir ist nicht ganz klar was die Anfangs- und Endpunkte der Linien sein sollen, aber wurscht
Wenn Dir klar ist dass nach SetLength(Lines_points,anz) auf Lines_points[anz-1] als höchster Index zugegriffen werden muss
Delphi-Quellcode:
-- bei mir gerne so
SetLength(Lines_points ,High(Lines_points)+2);
Lines_points[High(Lines_points)] :=
sollte der Teil keinen Ärger machen.
Du musst hier auch keine Variable freigeben, darum kümmert sich Delphi, wie bei Strings.