function GetParentRoot(p: TControl): TControl;
  begin
    if twincontrol(p).ClassName = 'TForm' then
    begin
      result := p;
    end else
    begin
      inc(roots);
      rootstr := rootstr + '.' + twincontrol(p).Name;
      showmessage(rootstr);
      result := GetParentRoot(TWinControl(p).Parent);
    end;
  end;
  function ReadObjects: String;
  var
    FileStream: TFileStream;
    R: TMyReader;
    s: String;
    i,i2: Integer;
  begin
    result := '';
    try
      FileStream := TFileStream.Create('test.dta',fmOpenReadWrite);
      try
        R  := TMyReader.Create(FileStream, 1024);
        s  := 'TForm';
        tc := TComponentClass(FindClass(s)).Create(nil);

        FileStream.ReadComponent(tc);
        FileStream.Position := 0;

        for i := 0 to twincontrol(tc).ComponentCount-1 do
        begin
          rootstr := rootstr + 'this.';
          if tc.Components[i].ClassName = 'TPanel' then
          begin
            roots := 0;
            GetParentRoot(twincontrol(tc.Components[i]));

            //showmessage(inttostr(roots));
            //showmessage(TWinControl(tc.components[i]).parent.ClassName);
            //showmessage(twincontrol(tc.components[i]).Name);

            //for i2 := 0 to
            begin
//              result := result + '.';
//              result := result + twincontrol(tc.components[i]).Name;
            end;
          end;
        end
      finally
        FileStream.Free;
      end;
    except
      on E : Exception do
      begin
        ShowMessage('Exception class name = '+E.ClassName);
        ShowMessage('Exception message = '+E.Message);
      end;
    end;

    result := rootstr;
  end;