procedure TForm1.Button1Click(Sender: TObject);
var y,h:string; //定义两个变量
begin
y:=inttostr(6);
h:=inttostr(8); //为两个变量赋值
if y<h then
showmessage ('Good Lucky!')
//使用if else语句, if 和 else 之间不能有空格
ELSE
showmessage ('Good Boy!');
end;
end.