Вопросик По Lazarus

[Ханако Сейсин]

Зашел случайно в раздел и узнал, что, оказывается, я настоящий программист =) По этому поводу решил написать какую-нить програмку. В школе нас учат такой штуке под названием Lazarus, там язык программирования Pascal, как я понимаю, только можно еще формы делать ну и всякое такое, чтобы выглядела программа по-человечески.

Короче, мне выдает ошибку "идентификатор не найден" на выделенной красным строке.

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

Children = record

Name: String;

Synchro: integer;

Reaction: integer;

Accuracy: integer;

HandToHand: integer;

end;

Eva = record

Pilot: Children;

EntryPlug: integer;

Armor: Integer;

ATF: Integer;

KnifePower: integer;

KnifeSolidity: integer;

KnifeAccuracy: integer;

RifleRateOfFire: integer;

RifleAccuracy: integer;

RiflePower: integer;

HP: integer;

SP: integer;

Synchro: real;

end;

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

battlelog: TMemo;

{И так далее}

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

E: array[1..2] of Eva;

my,en,i,dam:integer;

ver:real;

implementation

{ TForm1 }

function CubeRoot(x: real): real;

begin

CubeRoot:=exp (ln (x) / 3);

end;

procedure RangedBattle(m: integer);

var foe,s:real;

begin

if m=1 then foe:=2 else foe:=1;

ver:=E[m].pilot.accuracy*E[m].RifleAccuracy*E[m].synchro;

ver:=CubeRoot(ver);

battlelog.lines.add('Первым(ой) стреляет '+E[m].pilot.name);

{И так далее}

end;

{И так далее}

initialization

{$I unit1.lrs}

end.

Вот... в общем, если тут есть программисты, настоящесть которых заключается не только в том, что они смотрят аниме, подскажите плиз, что это за напасть такая и что делать, собственно?

[NortUS]

Не знаю, где у тебя описана RangeBattle

Если вне формы,то

Form1.battlelog.lines.add('message');

[Ханако Сейсин]

NortUS, вроде работает, спасибо.