---

procedure TForm1.Button1Click(Sender: TObject);
var a, b: integer;
begin
  a := strtoint(Edit1.text);
  b := strtoint(Edit2.text);
  if a <> b then begin
    if a < b then begin
      Edit1.Text := IntToStr(b);
      Edit2.Text := IntToStr(b);
    end
    else begin
      Edit1.Text := IntToStr(a);
      Edit2.Text := IntToStr(a);
    end;
  end
  else begin
      Edit1.Text := '0';
      Edit2.Text := '0';
  end;

end;

---

---

---