unit Main;

interface

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

type
  TDemInitFin = class(TForm)
    NumIn: TEdit;
    DoDiv: TButton;
    Result: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure DoDivClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DemInitFin: TDemInitFin;

implementation

{$R *.DFM}

var
 X: ^Integer;

procedure TDemInitFin.DoDivClick(Sender: TObject);
begin
 X^ := StrToInt(NumIn.Text);
 Result.Text := IntToStr(100 div X^);
end;

initialization
 MessageDlg('Wykonanie kodu sekcji Initialization', mtInformation, [mbOK], 0);
 new(X);

finalization
 MessageDlg('Wykonanie kodu sekcji Finalization', mtInformation, [mbOK], 0);
 Dispose(X);

end.