Можно использовать if.
Вот например для 4-ого условия:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
Var
U: Integer;
begin
U:= 10;
if (0 < U)AND(U < 15) Then // (0 < U < 15);
MessageBox(Application.Handle,
'Вам надо заниматься гимнастикой.',
'Сообщение.',
MB_OK + MB_ICONINFORMATION);
end;
|