there is
procedure CreateObjects(const DirPath: string; StrPath, StrDir, StrFile : Tstrings); begin position:=StrPath.Strings[j].Length-StrFile.Strings[l].Length; end.
Gives an error message
[Error] Unit1.pas(274): Record, object or class type required на position:=StrPath.Strings[j].Length-StrFile.Strings[l].Length;