unit Unit1;

interface

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

type
  TfrmAccess = class(TForm)
    btnProcess: TButton;
    lstDisplay: TListBox;
    bmpClear: TBitBtn;
    bmpClose: TBitBtn;
    lblName: TLabel;
    procedure btnProcessClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAccess: TfrmAccess;

implementation

{$R *.dfm}

function fAccess(input : string) : boolean;
var
  flag : boolean;
  sum : integer;
begin
  flag := true;
  sum := 0;
end;

procedure TfrmAccess.btnProcessClick(Sender: TObject);
var
  iInput : integer;
begin
  iInput := StrToInt(inputbox('Insert', 'Number here', '123456789034'));
  fAccess(input);
end;

end.