нужно немного дополнить рабочую программу

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)  //На форме должны быть
    Edit1: TEdit;        //два компонента Edit - для ввода чисел
    Edit2: TEdit;
    Label1: TLabel;      //компонент Label - для вывода произведения
    Button1: TButton;    //компонент Button - кнопка для выполнения действия
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; //Собственно объявление формы
 
implementation
 
{$R *.dfm}
{$OVERFLOWCHECKS ON} //Включаем контроль целочисленного переполнения
 
//Нажали кнопку
procedure TForm1.Button1Click(Sender: TObject);
var n, m, s: integer; //n, m -входные числа, s - произведение
begin
  Label1.Caption := ''; //Очищаем поле вывода результата
//Вводим n
  try 
    n := StrToInt(Edit1.Text);
  except //Введено с ошибкой
    on E: Exception do
    begin 
      ShowMessage('Введите число правильно'); //Ругаемся
      Edit1.SetFocus; //Фокус ввода - на Edit1
      Exit; //Досвиданья, вводите заново
    end;
  end;
//Вводим m
  try 
    m := StrToInt(Edit2.Text);
  except //Введено с ошибкой
    on E: Exception do
    begin 
      ShowMessage('Введите число правильно!'); //Ругаемся
      Edit2.SetFocus; //Фокус ввода - на Edit2
      Exit; //Досвиданья, вводите заново
    end;
  end;
//Проверяем правильность последовательности чисел
if m <= n then ShowMessage('Первое число должно быть больше второго!') //Неверно
  else //Всё верно, начинаем подсчёт
    begin
    s := 1; //Начальная величина произведения
    while n <= m do //Цикл while .. do
    begin
      try //Умножаем
        s := s * n;
      except //Число получилось больше, чем 2^32-1=4294967295
        on E: EIntOverflow do
          begin 
            ShowMessage('Числа слишком большие!');
            Edit1.SetFocus; //Фокус ввода - на Edit1
            Exit; //Досвиданья, вводите заново
          end;
      end;
    n := n + 1; //Инкремент n
    end; //Конец цикла while .. do
  Label1.Caption := IntToStr(s); //Выводим результат
  end; //Подсчёт окончен       
end;  //Конец процедуры обработки события нажатия кнопки
 
end.

if m <= n then begin
x:=m;
m:=n;
n:=x;
end else //считаем дальше

<... чего-то там>
m := StrToInt(Edit2.Text); //Вводим m
//Проверяем правильность введёных чисел
if ((m <= n) or (m < 0) or (n < 0)) then ShowMessage('Числа введены неверно!') //Неверно
  else //Всё верно, начинаем подсчёт
<... и т.д.>

<... чего-то там>
 m := Abs(StrToInt(Edit2.Text));//Вводим m
//Проверяем правильность введёных чисел
if m <= n then ShowMessage('Числа введены неверно!') //Неверно
  else //Всё верно, начинаем подсчёт
<... и т.д.>