[Fantomas_RUS]

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

Изменил немного

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  MyForm        : TForm;
  BitButton1    : TButton;
begin
  MyForm := TForm.Create(Self);
  with MyForm do
  begin
    Left   := 100;
    Top    := 100;
    Height := 300;  // Высота формы
    Width  := 300;   // Ширина формы
    BorderStyle := bsDialog;

    BitButton1 := TButton.Create(MyForm);
    with BitButton1 do
    begin
      Parent  := MyForm;
      Left    := 20;
      Top     := 235;
      Height  := 25;  // Высота
      Width   := 75;   // Ширина
      Caption :='Добавить';
      Visible := True;
    end;
  end;
  MyForm.ShowModal;
  MyForm.Free;
end;

А форме ты не задаешь что, ли Parent?