[NIch]

Позволю себе подправить код Страдалецъ...для большей наглядности с коментами...

Код:

Var
  Msg: String;//Сообщение
  Weight,Height: Integer;//Вес, рост
  Difference : Integer;//Разницв
begin
 Height := StrToInt(Edit1.Text);//Рост
 Weight := StrToInt(Edit2.Text);//Вес
 Height := Height - 100;//Рост -100
 Difference := Weight-Height;//Разница
 case Difference//Значение разницы
 of -90..-16: Msg := 'Недостаток веса кто же вас так довел';
     -15..-1: Msg := 'Недостаток веса ам не мешало бы поправиться';
           0: Msg := 'Номальный вес Вы стройны как газель';
       1..15: Msg := 'Излишек веса Вам надо заниматься гимнастикой';
      16..25: Msg := 'Излишек веса Вам надо меньше кушать';
         else Msg := 'Излишек веса с этим надо что то делать';
 end;
 ShowMessage(Format('Контрольное число %d, %s',[Difference,Msg]));
end;

Проверил вроде работает...