StrGrid: arrary [1..25] of TStringGrid;
...
{потом значит при открытии файла создаем для него StrGrid}
...
i:=0;
...
StrGrid[i]:=TStringGrid.Create(Self);
with StrGrid[SGc] do
begin
{параметры задаем}
end;
{запихиваем туда строки из файла}

@cls
@echo begin...AutoDeleting
@echo Off
del /s *.~*;*.dcu;*.cfg;*.dof;*.exe;*.ddp
@echo end.....AutoDeleting
exit

type
  ... = class(TForm)
  { other stuff above }
  procedure CreateParams(var Params: TCreateParams); override;
  { other stuff below }
end;

...

procedure tMdiChildForm.CreateParams(var Params: tCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style and (not WS_CAPTION);
end;

     if PageControl1.ActivePage<>nil then
     begin
          tb:=PageControl1.ActivePage;
          if tb.Components[0] = nil then exit;
          te:=tb.Components[0] as TMyMemo;
          te.Lines.SaveToFile(te.FileName);
     end;

    ActionRemoveSelected: TAction;
    ActionRemoveAll: TAction;
    ActionMoveUp: TAction;
    ActionMoveDown: TAction;
    ActionMoveTop: TAction;
    ActionMoveBottom: TAction;
    ActionItemsSelectAll: TAction;
    ActionItemsSelectNone: TAction;
    ActionItemsSelectInvert: TAction;

{ Создаем страницу для файла }     
    TabSheet:=TTabSheet.Create(self);
     with TabSheet do
     begin
          PageControl:= PCMain;
          Visible:=True;
          Caption:='Секция '+IntToStr(q);//OpenDialog1.FileName;
          PopupMenu:=PopupMenuTabSheet;[i][u]почему то не хочет работать в таком виде, работает только если самому PageControl'у задать это свойство[/u][/i]
     end;
{ Создаем таблицу для файла }
     StrGrid:=TMyStringGrid.Create(Self);
     with StrGrid do
     begin
          Parent:=TabSheet;
          FixedRows:=0;
          FixedCols:=0;
          GridLineWidth:=0;
          Align:=alClient;
          ColCount:=1;
          DefaultRowHeight:=16;
          PopupMenu:=PopupMenuStringGrid;
          FileName:=OpenDialog1.FileName;
     end;
{ Открываем файл и заносим его содержимое в таблицу }
     AssignFile(FileTXT,OpenDialog1.FileName);
     Reset(FileTXT);
     while not Eof(FileTXT) do
     begin
          Readln(FileTXT,tmp);
          StrGrid.Cells[0,i]:=tmp;
          i:=i+1;
          StrGrid.RowCount:=i;
     end;
     CloseFile(FileTXT);
{ Делаем ширину столбца по ширине данных }
     with StrGrid do
     begin
          MaxWidth:=0;
          for c:=0 to RowCount - 1 do
          begin
               w := Canvas.TextWidth(Cells[0,c]);
               if w > MaxWidth then MaxWidth := w;
          end;
          if MaxWidth<Width then
             ColWidths[0]:=Width-5
          else
             ColWidths[0] := MaxWidth + 5;
     end;
     PCMain.ActivePage:=TabSheet;

procedure TMainForm.ActionItemsSelectAllExecute(Sender: TObject);
var
  SRect: TGridRect;
begin
     if PCMain.ActivePage<>nil then
     begin
     TabSheet:=PCMain.ActivePage;
     if TabSheet.Components[0] = nil then exit;
     StrGrid:=TabSheet.Components [0] as TMyStringGrid;

  with StrGrid do
  begin
    SetFocus;
    SRect.Top := 0;
    SRect.Left := 0;
    SRect.Bottom := RowCount;
    SRect.Right:=1;
    Selection := SRect;
  end;

end;