안녕하세요~ 델파이 초보자입니다.
저의 질문은 에디트1과 에디트2에 숫자를 입력해서 큰숫자에서 작은숫자를 빼고 1부터 그값까지의 합을 에디트3에 결과값이 나오는것입니다. 그런데 프로그램을 실행하면 else에서 오류가 났다고 합니다. 아직 초보자라 잘몰라서 그러는데 알려주세요~

var
  a,b,i,tot:integer;
begin

  if ((strtoint(edit1.Text)) >(strtoint(edit2.Text))) then

  a:= strtoint(edit1.Text);
  b:= strtoint(edit2.Text);

  tot:= 0;
  for i:=1 to (a-b) do
  tot := tot + i;

  else

  a:= strtoint(edit1.Text);
  b:= strtoint(edit2.Text);

  tot:= 0;
  for i:=1 to (b-a) do
  tot := tot + i;

  {a:= strtoint(edit1.Text);
  b:= strtoint(edit2.Text);

  tot:= 0;
  for i:=1 to (a-b) do
  tot := tot + i;

  edit3.text:= inttostr(tot);}

end;

end.