procedure TForm1.Button1Click(Sender: TObject);
var x,h,r:string; //声明一个变量 x和h
begin
x:=inttostr(6); //给 x和h赋值 , 并吧int转换为str
h:=inttostr(7);
r:='x大于h'; //声明一个字符串
if x > h then //判断 x h 大小并执行成立代码
showmessage('x大于h');
edit1.Text:=r; //吧结果赋给编辑框edit1
if x < h then
showmessage('x小于h,程序退出');
close;
end;
end.