TextStrings
type TTextLineRange = record
StartPos: integer;
EndPos: integer;
Line: string;
TheObject: TObject;