procedure TForm1.Button1Click(Sender: TObject);
var y,h:string; //定义两个变量
begin
y:=inttostr(6);
h:=inttostr(7); //给两个变量赋值
while y<h do //使用 while do 语句判断
begin
showmessage ('y小于h'); // 成立则执行begin中的代码
end;
end;
end.