[Error] Unit1.pas(70): ',' or ':' expected but 'BEGIN' found

[pandareos]

hi!
ich habe ein Problem!Ich hoffe ihr könnt mir helfen!
Also habe vor kurzem angefangen mit Delphi zu programmieren!
Ich habe auch ein gleich ein Programm geschrieben!Allerdings funktioniert es nicht!
Folgende Fehlermeldung taucht auf :

[Error] Unit1.pas(70): ',' or ':' expected but 'BEGIN' found

Hier der Code :
__________________________________________________ __________________________________________________ _____________________________

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    Edit14: TEdit;
    Label24: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var
erz: integer;erzlager,erzstufe,kristall: integer;kristalllager,kristallstufe,credits: integer;creditslager,eismetall: integer;eismetalllager,maguscredits,maguseismetall,regionen,stunden

begin

erzlager := StrToInt(Edit1.Text);
        kristalllager := StrToInt(Edit2.Text);
        creditslager := StrToInt(Edit3.Text);
        eismetalllager := StrToInt(Edit4.Text);
        erzstufe := StrToInt(Edit5.Text);
        kristallstufe := StrToInt(Edit6.Text);
        maguscredits := StrToInt(Edit7.Text);
        maguseismetall := StrToInt(Edit8.Text);
        regionen := StrToInt(Edit14.Text);
        stunden := StrToInt(Edit9.Text);
        erz := ((erzstufe*2)*(stunden*4))+erzlager+4;
        Edit10.Text := IntToStr(erz);
        kristall := ((kristallstufe*2)*(stunden*4))+kristalllager+4;
        Edit11.Text := IntToStr(kristall);
        credits := (((((regionen*5)+10) + (maguscredits))*(stunden*4))+creditslager);
        Edit12.Text := IntToStr(credits);
        eismetall := (maguseismetall*4);
        Edit13.Text := IntToStr(eismetall);
end;

end.

__________________________________________________ __________________________________________________ ____________________________
Ich verwende Dephi 6 Enterprise Edition!
Ich hoffe ihr könnt mir helfen!

könnt mir auch eine mail schicken : [e-mail]
cu pandareos

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]