[Black Raider]

Например так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var fr:TForm3;
    rf:TFrame2;
begin
  fr:=TForm3.Create(self);
  rf:=TFrame2.Create(fr);
  rf.Left:=21;
  rf.top:= 20;
  rf.Parent:=fr;
  fr.ShowModal;
end;