TStrings zwischenspeichern und wieder herstellen

[Popov]

Unabhängig dessen, diese Zeile

Delphi-Quellcode:

      CanClose := true;
..

kannst du dir sparen, denn jedes Mal wenn die Prozedur neu aufgerufen wird, ist sie wieder True, auch wenn sie vorher False gestellt wurde. Im Grunde ist nur False Änderung wichig.