问一个利用UPDOWN控件控制多个EDIT出现的position问题

Question

比如有两个文本框，里面一个数值是‘56’。一个是‘78’。但是我想利用UPDOWN组件进行控制，使它们同时达到100，或者同时为0，我知道问题的关键的是position，可是这个position是动态的，下面是我的程序，只能同时达到0，不能同时到达100，大家帮我看看该怎么改可以同时到达100啊，求救了，或者可以同时达到100，不能同时达到0.
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text ='' then
     edit1.Text :='0';
  if strtoint(edit1.Text)>Strtoint(edit2.Text) then
  updown1.Position :=strtoint(edit1.Text)
  else
   updown1.Position :=strtoint(edit2.Text)
end;procedure TForm1.Edit2Change(Sender: TObject);
begin
  if edit2.Text ='' then
  edit2.Text :='0';
  if strtoint(edit1.Text)>Strtoint(edit2.Text) then
  updown1.Position :=strtoint(edit1.Text)
  else
   updown1.Position :=strtoint(edit2.Text)
end;procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  if Button=btnext then
  begin
    Edit1.Text :=inttostr(strtoint(Edit1.Text)+1);
    Edit2.Text :=inttostr(strtoint(Edit2.Text)+1);
  end
  else
  begin
    Edit1.Text :=inttostr(strtoint(Edit1.Text)-1);
    if (strtoint(Edit1.Text)-1)<0 then
    edit1.Text :='0';
    Edit2.Text :=inttostr(strtoint(Edit2.Text)-1);
    if (strtoint(Edit2.Text)-1)<0 then
    edit2.Text :='0';
  endend;大家知道程序应该怎么改吗？请教了

Answer 1

  其实，是一个WRAP属性的问题，你可以不用管POSITION问题，直接用大小来判断100和0，这样循环就不会存在不能到100和0的问题了，把WARP属性设置为TRUE就解决，看一下帮助文档