помогите пожалуста новичку

[yurciklet]

учусь програмировать по книжке (Автор: Horrific aka Фленов Михаил) и все нормально все получалось. а тут шото не то. пишет что ошибка. помогите пожалуйста.


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
EndEdit: TEdit;
ResultEdit: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CalculateButtonClick(Sender: TObject);
var
index:Integer;
sum:Integer;
EndCount:Integer;
begin
Sum:=0;

EndCount:=StrToInt(EndEdit.Text);

for index:=0 to EndCount do
Sum:=Sum+index;

ResultEdit.Text:=IntToStr(Sum);
end;
end.

[__STDC__]

Какая ошибка-то хоть?

[crystalbit]

какая ошибка? никогда не пренебрегай тем, что пишет компилятор

[__STDC__]

name у edit'a не сменил?

[crystalbit]

CalculateButtonClick вероятно никак не связано с Button1 ; )

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

- исправь чтоб было так

[__STDC__]

В общем так не скажешь... текст ошибки приведите... И книгу Фленова сожгите...

[crystalbit]

__STDC__, присмотрись:

Button1: TButton;
procedure Button1Click(Sender: TObject);

......

procedure TForm1.CalculateButtonClick(Sender: TObject);

[__STDC__]

а.. ну да.. ты прав
но книгу все равно сжечь...