[Adrenalin666]

Код:

1 2 3 4

procedure TForm1.N1Click(Sender: TObject); begin AboutBox6:=TAboutBox6.Create(Owner); end;

почему не работает

[v1s2222]

Код:

1 2	AboutBox6:=TAboutBox6.Create(Self); AboutBox6.Visible := True;

Так же место Self можешь писать, как ты и написал Owner.

[Adrenalin666]

Код:

1 2 3 4 5

procedure TAboutBox6.OKButtonClick(Sender: TObject); begin   inherited;         ModalResult := mrOk; end;

и закрыть это окно по кнопке хочу но не работает

[v1s2222]

А чем Close не подходит?
ЗЫ можно так же Halt(), Applicatiom.Terminate... (ну это если надо закрыть всю программу сразу)

[Adrenalin666]

тоесть как закрыть

[Adrenalin666]

мне собственно только это окно