[Fantomas_RUS]

Создаю программно при щелчке на кнопку форму, так же программно на ней размещаю кнопку и пытаюсь эту форму показать как ShowModal. Выскакивает ошибка cannot focus a disabled or invisible window.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);

var Forma : TForm;
    BitButton1 : TBitBtn;
    BitButton2 : TBitBtn;
    BitButton3 : TBitBtn;
    A : TDBGrid;
    B:TDBLookupListBox;


begin

Forma := TForm.Create(Self);
With Forma do
  begin
  Parent := Self;
  Left := 100;
  Top := 100;
  Height := 300;  // Высота формы
  Width := 300;   // Ширина формы
  BorderStyle := bsDialog;
  end;

BitButton1 := TBitBtn.Create(Forma);
With BitButton1 do
  begin
  Parent := Forma;
  Left := 20;
  Top := 235;
  Height := 25;  // Высота
  Width := 75;   // Ширина
  Caption :='Добавить';
  Visible := true;
  end;

Forma.ShowModal;
end;

В чём проблема не пойму, если кнопку не создавать всё нормально...