with TListView.Create(pfrm) do
        begin
          Top := 50;
          Left := 1;
          Height := 50;
          Width := 500;
          name := 'list_' + IntToStr(tab.FieldAsInteger(tab.FieldIndex['pid']));
          Parent := page_control.Pages[PInc];

          FlatScrollBars := True;
          FullDrag := True;
          GridLines := True;
          ReadOnly := True;
          RowSelect := True;
          ShowHint := False;
          SortType := stData;
          ViewStyle := vsReport;
          DoubleBuffered := True;


          //Align := alClient;

          with (pfrm.FindComponent(name) as TListView).Columns.Add do
          begin
            caption := 'TEST1';
          end;

          with (pfrm.FindComponent(name) as TListView).Columns.Add do
          begin
            caption := 'Test2';
          end;

          with (pfrm.FindComponent(name) as TListView).Columns.Add do
          begin
            caption := 'Test3';
          end;

        end;