Source position: textstrings.pas line 37
type TTextLineRange = record
Line: string;
TheObject: TObject;
StartPos: Integer;
EndPos: Integer;
end;