problema al declarar una variable

[Alfonso Ramírez]

Hola a todos y gracias por leer otra vez mis mensajes.

El problema que tengo es el siguiente: no se si sea una variable perdón si me equiboque, bueno lo que pasa es que al declarar

Código Delphi [-]
i:integer;

me da un error y no puedo ejecutar mi programa la verdad no se cual pueda ser mi error. de ante mano muchas gracias por la atencion que me prestan.

Codigo del programa:

Código Delphi [-]
unit Calcular;

interface

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

type
  TForm1 = class(TForm)
    LRadio: TLabel;
    LArea: TLabel;
    LLongitud: TLabel;
    Earea: TEdit;
    ERadio: TEdit;
    ELongitud: TEdit;
    BCalcular: TButton;
    BCerrar: TButton;
    procedure BCalcularClick(Sender: TObject);
    procedure BCerrarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BCalcularClick(Sender: TObject);
  var r,ar,long:real;
  a,l:string// esto recoje el resultado
  i:integer;//este seria el codigo de control
  const
  pi=3.1415;
begin
  val (Eradio.text,r,i);//esto convierte el texto a un valor numerico
  ar:=pi*r*r;
  long:=2*pi*r;
  str(ar:6:2,a);
  str(long:6:2,1);
  EArea.text:=a;
  ELongitud.text:=1;

end;

procedure TForm1.BCerrarClick(Sender: TObject);
begin
  close;
end;

end.