VAR DOLINES: TSTRINGS; Begin
IF not assigned (DOLINES) THEN DOLINES: = TStrings.create; DOLINES: = richedit1.Lines; DOLINES: = nil; // Dolines.Free; error ..... I know, it is not possible. Because he can't FREE, Richedit1 is over .. My Dolines still does not exist?
