这个错误是什么原因啊~~~~~~~~~~~~

roots127

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edt: TEdit;
    But: TButton;
    procedure ButClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButClick(Sender: TObject);
var
  Arr_s:array[1..100] of Integer;
  s,temp:string;
  x,y:Integer;
begin
  s:=Trim(Edt.Text);
  //ShowMessage(IntToStr(Length(s)));
  x:=1;
  y:=0;
  while (x<Length(s)) do
  begin
    while(s[x]<>#32)and(s[x]<>#0)do
    begin
      temp:=temp+s[x];
     // ShowMessage(temp);
      x:=x+1;
    end;
    Arr_s[y]:=StrToInt(temp);
    temp:='';
    ShowMessage(IntToStr(Arr_s[y]));
    y:=y+1;
    x:=x+1;
    //ShowMessage(IntToStr(x));
  end;
end;
end.