[lmikle]

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  f : TForm;
  b : TButton;
begin
  f := TForm.Create(Application);
  b := TButton.Create(f);
  b.Parent := f;
  b.Caption := 'OK';
  b.Top := 10;
  b.Left := 10;
  b.ModalResult := mrOK;
  b.Cancel := True;
  f.ShowModal;
  f.Free;
end;

Только целесообразность такого метода создания форм напрочь отсутствует. Тебе придется кодом повторить все те настройки всех компонентов, которые в дизайнтайме ты легко делаешь через инспектор...