Расположить форму на закладке PageControl

[tarakan1983]

У меня есть форма (fm1) с компонентами (FormStyle := fsNormal)
И есть форма (fmMDIChild1) FormStyle := fsMDIChild.
Мне нужно на fmMDIChild1, на одной закладке PageControl расположить все компоненты fm1 или целиком поместить форму на закладку PageControl.
Подскажите как это правильно сделать?

[evg_m]

1. ВСЕ из fm1 ПЕРЕНЕСТИ на новый FRAME.
2. на fm1 положить этот новый frame
3. на нужную закладку поместить ТОТЖЕ frame.
http://programmersforum.ru/showpost....18&postcount=3

[tarakan1983]

Сообщение от evg_m

1. ВСЕ из fm1 ПЕРЕНЕСТИ на новый FRAME.
2. на fm1 положить этот новый frame
3. на нужную закладку поместить ТОТЖЕ frame.
http://programmersforum.ru/showpost....18&postcount=3

Спасибо.
Сделал frame поместил на него компоненты и теперь у меня так

procedure TForm1.Button1Click(Sender: TObject);
  var
    F : TFrame4;
begin
  F := TFrame4.Create(Form2);
  F.Parent := Form2;
  Form2.Show;
end;

но если не закрывая Form2 нажать кнопку еще раз, то появляется Exception, что компонент Frame4 уже существует.
Как написать, что если frame есть то создавать не надо.
Попробовал так

procedure TForm1.Button1Click(Sender: TObject);
  var
    F : TFrame4;
begin
  if F = nil then F := TFrame4.Create(Form3);
  F.Parent := Form2;
  Form2.Show;
end;

не получается.

[evg_m]

НЕ создавать Frame в программе да еще и каждый раз

  F := TFrame4.Create(Form2);
  F.Parent := Form2;

а ПОМЕСТИТЬ этот Frame на форму (Form2) ЗАРАНЕЕ (как обычный компонент).
Вкладка Standart (самая первая)
Компонент Frame
Выбрать из предлагаемого списка нужный

[tarakan1983]

Сообщение от evg_m

НЕ создавать Frame в программе да еще и каждый раз

  F := TFrame4.Create(Form2);
  F.Parent := Form2;

а ПОМЕСТИТЬ этот Frame на форму (Form2) ЗАРАНЕЕ (как обычный компонент).
Вкладка Standart (самая первая)
Компонент Frame
Выбрать из предлагаемого списка нужный

Простите, я идиот!!!!
Спасибо!!!!

[Баламут]

Ну а если по существу вопроса, то я так делаю:

Var
	FormClass: TFormClass;
	Sheet: TTabSheet; 
	Form: TForm;
... 
  Sheet := TTabSheet.Create(Self);
  Sheet.PageControl := PageControl11;
 
  FormClass := TForm2;	

  Form := FormClass.Create(Self);
  Form.BorderStyle := bsNone;
  Form.Parent := Sheet;
  Form.Align := alClient;
  Sheet.Caption := Form.Caption;
  Item.Caption  := Form.Caption;
  Form.Show;

with не пользуюсь для наглядности