Hvad gør jeg forkert:

procedure TForm1.Timer2Timer(Sender: TObject);
var
S1, S2, S3, S4: integer;
begin
timer1.enabled := false;
timer3.enabled := true;
edit7.Text := ' Det er nu computeren der har turen';
S1 := StrToInt(Edit1.Text);
S2 := StrToInt(Edit2.Text);
edit3.text :=(IntToStr(S1+S2));
S3 := StrToInt(edit3.Text);
S4 := StrToInt(Edit8.Text);
edit8.Text := '';
edit8.text :=(IntToStr(S4+S3));
timer2.enabled := false;
end;


burde denne kode ikke kun pludse edit8.text :=(IntToStr(S4+S3)); en gang.
Når alt i den kode stopper, bliver den kode ved???

why.


Hele min kode er sådan:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit7: TEdit;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit8: TEdit;
Panel3: TPanel;
Label2: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit9: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Button1: TButton;
Button2: TButton;
Label15: TLabel;
Button3: TButton;
Edit10: TEdit;
CheckListBox1: TCheckListBox;
Label16: TLabel;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
edit1.text := inttostr(random(6)+1);
edit2.text := inttostr(random(6)+1);
timer2.enabled := true;
edit7.Text := ' Terningerne ruller! ! ! ! !';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
S1, S2, S3, S4: integer;
begin
timer1.enabled := false;
timer3.enabled := true;
edit7.Text := ' Det er nu computeren der har turen';
S1 := StrToInt(Edit1.Text);
S2 := StrToInt(Edit2.Text);
edit3.text :=(IntToStr(S1+S2));
S3 := StrToInt(edit3.Text);
S4 := StrToInt(Edit8.Text);
edit8.Text := '';
edit8.text :=(IntToStr(S4+S3));
timer2.enabled := false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
randomize;
edit4.text := inttostr(random(6)+1);
edit5.text := inttostr(random(6)+1);
timer2.enabled := true;
end;

end.














HJÆLP

TAKKER.
Vis i gider at skynde jer??