Мне нужно сделать так что кнопка вычисления смотрела сумму и вес и потом выдавала разряд, делать надо с условием.

begin
begin if k<=44 then
begin
if (s<=200) and (s>185) then
showmessage('I юношеский')
else if  s<=185 then showmessage('II razr') 
else if s<=170 then showmessage('3 razr');
end

procedure TForm11.BitBtn2Click(Sender: TObject);
begin if k<=44 then
begin
if s<175 then
showmessage('III-юношеский')
else if s=175 then
showmessage('III-юношеский')
else if s<185 then
showmessage('II-юношеский')
else if s=185 then
showmessage('II-юношеский')
else if s<200 then
showmessage ('I-юношеский')
else if s=200 then
showmessage ('I-юношеский')
end;

procedure TForm11.BitBtn2Click(Sender: TObject);
begin
  case k of
  0..44:
    if s<=175 then
      showmessage('III-þíîøåñêèé')
    else
      if s<=185 then
        showmessage('II-þíîøåñêèé')
      else
        if s<=200 then
          showmessage ('I-þíîøåñêèé');
  45..48:
    .....
  49..52:
    .....
  .....
end;
end;

  45..48:
    if s <= 180 then
      showmessage('III-юношеский')
    else
      if s<=195 then
        showmessage('II-юношеский')
      else
        if s<=210 then
          showmessage ('I-юношеский')
        else
          if .....

procedure TForm11.BitBtn2Click(Sender: TObject);
begin
  case k of
  0..44:
    if s<=175 then
      showmessage('III-юношеский')
    else
      if s<=185 then
        showmessage('II-юношеский')
      else
        if s<=200 then
          showmessage ('I-юношеский');
  45..48:
 if s<=180 then
      showmessage('III-юношеский')
    else
      if s<=195 then
        showmessage('II-юношеский')
      else
        if s<210 then
          showmessage ('I-юношеский');
          end;
  {49..52:
    .....
  .....}
end;

procedure TForm11.BitBtn2Click(Sender: TObject);
begin
  case k of
  0..44:
    case s of
      0..174: showmessage('Íàäî áû åùå ïîäêà÷àòüñÿ...');
    175..184: showmessage('III-þíîøåñêèé');
    185..199: showmessage('II-þíîøåñêèé');
    else      showmessage('I-þíîøåñêèé');
    end;
  45..48:
    case s of
      0..179: showmessage('Íàäî áû åùå ïîäêà÷àòüñÿ...');
    180..194: showmessage('III-þíîøåñêèé');
    195..209: showmessage('II-þíîøåñêèé');
    210..234: showmessage('I-þíîøåñêèé');
    235..254: showmessage('III');
    255..294: showmessage('II');
    else      showmessage('I');
    end;
  {49..52:
    .....
  .....}
end;
end;

procedure TForm11.Edit1Change(Sender: TObject);
begin
k:=strtoint(edit1.Text);
end;
 
procedure TForm11.Edit2Change(Sender: TObject);
begin
s:=strtoint(Edit2.text);
end;
 
procedure TForm11.Edit3Change(Sender: TObject);
begin
s:=s+strtoint(Edit3.text);
end;
 
procedure TForm11.Edit4Change(Sender: TObject);
begin
s:=s+strtoint(Edit4.text);
end;

procedure TForm11.BitBtn2Click(Sender: TObject);
begin
  k := strtoint(edit1.Text);
  s := strtoint(Edit2.text) + strtoint(Edit3.text) + strtoint(Edit4.text);
  case k of
  0..44:
    case s of
      0..174: showmessage('Надо бы еще подкачаться...');
    175..184: showmessage('III-юношеский');
    185..199: showmessage('II-юношеский');
    else      showmessage('I-юношеский');
    end;
  45..48:
    case s of
      0..179: showmessage('Надо бы еще подкачаться...');
    180..194: showmessage('III-юношеский');
    195..209: showmessage('II-юношеский');
    210..234: showmessage('I-юношеский');
    235..254: showmessage('III');
    255..294: showmessage('II');
    else      showmessage('I');
    end;
  {49..52:
    .....
  .....}
end;
end;