procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer ;
begin
randomize;
x:=10+random(90);
y:=10+random(90);
edit1.Text:=inttostr(x);
edit2.Text:=inttostr(y);
edit3.Text:='';
edit3.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
var z,i:word;
begin
z:=strtoint(edit3.Text);
if z=strtoint(edit1.Text)+strtoint(edit2.Text)
then i:=messagedlg('你真厉害',mtinformation,[mbok],1)
else begin
i:=messagedlg('错误码，请重做',mterror,[mbok],1);
edit3.Text:='';
edit3.SetFocus;
end;
end;
end.

运行就提示这个

你需要补习小学英语了

提示的意思是: 空格不能转换成整数。
你的edit3默认是空格，这里有错误。
要加上容错代码。