Ошибка в Delphi

~~3n19ma~~ · 19.08.2012, 23:39

[Ссылки могут видеть только зарегистрированные пользователи. ]
вот такая вот ошибка когда я придаю кнопке(Button8) события онклик , удалил и создал заново кнопку но все равно тоже( скопировал код в новый проект , и все равно не пашет( что может быть? код правильный , до этого работал

Добавлено через 5 минут
если нужен код то вот ,
unit Unit2;

interface

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

type
TForm2 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Button2: TButton;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label8: TLabel;
Button3: TButton;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Label9: TLabel;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Button4: TButton;
Label10: TLabel;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Button5: TButton;
Label11: TLabel;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Button6: TButton;
Label12: TLabel;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Button7: TButton;
Edit36: TEdit;
Label13: TLabel;
Edit37: TEdit;
Edit38: TEdit;
Edit39: TEdit;
Edit40: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 400;
d := 1;
c := 2;
b := 400;
a := StrToFloat (Edit1.Text);

Edit2.Text:=FloatToStr(a*b);
Edit3.Text:=FloatToStr(a*c);
Edit4.Text:=FloatToStr(a*d);
Edit5.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button2Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 800;
d := 2;
c := 4;
b := 800;
a := StrToFloat (Edit6.Text);

Edit7.Text:=FloatToStr(a*b);
Edit8.Text:=FloatToStr(a*c);
Edit9.Text:=FloatToStr(a*d);
Edit10.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button3Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 1600;
d := 4;
c := 8;
b := 1600;
a := StrToFloat (Edit11.Text);

Edit12.Text:=FloatToStr(a*b);
Edit13.Text:=FloatToStr(a*c);
Edit14.Text:=FloatToStr(a*d);
Edit15.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button4Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 6400;
d := 8;
c := 16;
b := 3200;
a := StrToFloat (Edit16.Text);

Edit17.Text:=FloatToStr(a*b);
Edit18.Text:=FloatToStr(a*c);
Edit19.Text:=FloatToStr(a*d);
Edit20.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button5Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 51200;
d := 16;
c := 32;
b := 6400;
a := StrToFloat (Edit21.Text);

Edit22.Text:=FloatToStr(a*b);
Edit23.Text:=FloatToStr(a*c);
Edit24.Text:=FloatToStr(a*d);
Edit25.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button6Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 102400;
d := 32;
c := 64;
b := 12800;
a := StrToFloat (Edit26.Text);

Edit27.Text:=FloatToStr(a*b);
Edit28.Text:=FloatToStr(a*c);
Edit29.Text:=FloatToStr(a*d);
Edit30.Text:=FloatToStr(a*q);
end;

procedure TForm2.Button7Click(Sender: TObject);
var a, b, c, d, q

ouble;
begin
q := 6400;
d := 8;
c := 16;
b := 3200;
a := StrToFloat (Edit31.Text);

Edit32.Text:=FloatToStr(a*b);
Edit33.Text:=FloatToStr(a*c);
Edit34.Text:=FloatToStr(a*d);
Edit35.Text:=FloatToStr(a*q);
end;