一个简单问题，但是对你Delphi根底的考验，关于溢出检查和变量赋值

procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);