[Snake22]

Код:

if StrToInt(Edit1.text)>1 then
  begin
  Memo1.lines.add('У вас группа крови больше единицы !');
  end
  else if StrToInt(Edit1.text)>-1 then
   begin
  Memo1.lines.add('У вас нулевая и выше группа крови!');
  end
  else if StrToInt(Edit1.text)=-11 then
   begin
  Memo1.lines.add('У вас минус 11 группа крови!');
  end;

Админ: Бан на 4 дня за некорректное оформлние кода.