[Alegun]

Сообщение от Алина1912

...Нужно будет в Edit ввести некоторое число и если он будет меньше конкретного числа,то выводится одно сообщение в Memo,если меньше то другое.и кнопка есть,на которую нажимают для ввода числа в поля...

В модуле StrUtils для этого есть одна очень подходящая функция IfThen, вот вариант работы с ней, на форме должны быть Memo, Edit и Button

Код:

uses 
StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  Memo1.Text
  ('Введенное число ' +
   IfThen(StrToInt(Edit1.Text) < 1, // главное условие, если число меньше 1
   'меньше',  // то выводится это сообщение,
   'больше') +// иначе т.е. если число больше 1, показывается вот это сообщение
  ' единицы');
 end;