модальная форма

[nws]

Как сделать что бы при нажатии на кнопку появилась Модальная форма ?

 

[Jeefo]

Form2.ShowModal;
в обработчике онклик кнопки

 

[nws]

thx

 

[etc]

procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Application) do
try
ShowModal;
finally
Release;
end;
end;

Примерно так.