Non RS related...

[pker overkil]

HI! well i havent posted on the forum in a while but i was scripting and i had a question. For some reason instead of doing what i want my script to do, which is change the label, wait, and change the label again, it just waits for one long time and changes the label to the last thing i wanted it changed to. can anyone help me so i can actually see the label when it canges? thanks. Here is the script:

program NumberGuesser;
var
  frmDesign : TForm;
  Label1 : TLabel;
  Edit1 : TEdit;
  Button1 : TButton;
  Number : integer;

procedure ChooseNumber;
begin
Number := 1 + Random(9);
end;

procedure Guess(Sender:TObject);
begin
if strtoint(Edit1.text) = Number then
   begin
   // Trouble area
        Edit1.text:='';
        Label1.caption := 'You guessed right!';
        wait(1000)
        Label1.caption := 'Im thinking of a new number...';
        Number:= 1 + Random(9)
        wait(1000)
        Label1.caption := 'Ok i got it!';
   end else
   begin
    if Number > strtoint(Edit1.text) then
     begin
     Label1.caption := 'Higher...';
     Edit1.text:='';
     end else
     begin
     Label1.Caption := 'Lower...';
     Edit1.text:='';
     end;
   end;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 437;
frmDesign.Height := 420;
frmDesign.Caption := 'Number Guesser';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 72;
Label1.Top := 96;
Label1.Width := 281;
Label1.Height := 29;
Label1.Caption := 'Im Thinking of a Number...';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -24;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 144;
Edit1.Top := 208;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 160;
Button1.Top := 304;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Guess!';
Button1.TabOrder := 9;
Button1.OnClick := @Guess
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

begin
     ChooseNumber;
     SafeInitForm;
     SafeShowFormModal;
end.