Delphi while do 语句使用

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.