Este codigo hace uso de un Form con un boton y un memo. Usa los nombres por defecto y el evnto OnClick del Boton.
Código Delphi
[-]
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
public
varGlobal: integer; end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
var
varLocal: integer;
otraVarLocal : integer;
begin
varGlobal := 10;
varLocal := 10;
otraVarLocal := varGlobal + varLocal; memo1.lines.add(IntToStr(varGlobal) + IntToStr(varLocal)); memo1.Lines.Add (inttostr(otravarlocal));
end;
end.
Al parecer tu estas haciendo un programa de terminal, no debe de variar demasiado.
Saludos y cuentanos si resuelves tus dudas.