[Ildar-tsr]

Столько шума на пустом месте

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Self.ModalResult:= mrCancel;
end;