Ciao

questo è un sorgente tratto dalla guida Delphi di Vanni Brutto:
---inizio---

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TfrmMain = class(TForm)
lblRaggio: TLabel;
txtRaggio: TEdit;
lblAltezza: TLabel;
txtAltezza: TEdit;
btnCalcolo: TButton;
btnExit: TButton;
procedure btnExitClick(Sender: TObject);
procedure btnCalcoloClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
Close;
end;

procedure TfrmMain.btnCalcoloClick(Sender: TObject);
var rRaggio,
rAltezza: Real;
iResult: Integer;
begin
rRaggio:= STRtoINT(txtRaggio.Text);
rAltezza:= STRtoINT(txtAltezza.Text);

iResult:= Round(rRaggio*rRaggio*rAltezza*Pi);

Caption:= INTtoSTR(iResult);
end;

end.
---fine---
Dopo aver preparato la form, quando lancio il Run (F9) si lancia in anteprima, ma subito dopo si chiude. Perché?

grazie