대충...

procedure TForm1.Button1Click(Sender: TObject);
var
  nEdit1 : Integer;
  nEdit2 : Integer;
  nResult : Integer;
begin
  if (Edit1.Text = '') OR (Edit2.Text = '') then exit;

  nEdit1 := StrToInt(Edit1.Text);
  nEdit2 := StrToInt(Edit2.Text);

  if nEdit1 > nEdit2 then
    nResult := nEdit1 - nEdit2
  else
    nResult := nEdit2 - nEdit1;

  nResult := nResult * 100;

  ShowMessage(IntToStr(nResult));
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Edit1.Text = '' then exit;
  if StrToInt(Edit1.Text) > 100 then
    Edit1.Text := '100';
end;

procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Edit2.Text = '' then exit;
  if StrToInt(Edit2.Text) > 100 then
    Edit2.Text := '100';
end;

gyata 님이 쓰신 글 :
: edit1
: edit2
: button1
: result1
:
: 이렇게 만들어서 에디트1하고 2에다가 1부터 100까지 숫자만 넣을수 있게 하고
: 버튼을 누르면 에디트1과 2의 차에(높은수에서 낮은수를 빼서 나온 값) 100을 곱해서 리절트1에 뜨게 하는 건데요
:
: 책찾아보고 사이트뒤져보고 해서 버튼누르면 에디트1과 2의 차에 100을 곱하는거까진 성공했거든요
:
: 근데 1부터 100까지 입력할수있게하는거하고 에디트1과 2의 차를 높은수에서 낮은수를 빼ㄱ게 하는 법을 모르겠네요
: 몇시간동안 붙들고있엇는데 책내용도 어렵고요 ㅜㅜ
:
: const나 sunrange형을 써서 입력할수있게하는거같은데;
: 어떻게 타이핑을 해야할지..
:
: 높은수에서 낮은수 빼는 방법도 모르겠네요
:
: 혼자 할 수 있게 조언이나 방법이라도 부탁드려요 짜여진 소스가 비슷한내용도 없으니 분석도 못하겟네요