[lostbananan]

И чего ?
Говорю же НЕ работает!

Модернизировал процедуру, код такой:

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    begin
      Form1.Caption := 'Àãðåñ³ÿ âõîäèòü äî ³ñïèòó';
      GroupBox1.Height := 217;
      GroupBox1.Repaint;
      Form1.Caption := IntTostr(GroupBox1.Height);
    end
  else
    Form1.Caption := 'Íå âõîäèòü äî ³ñïèòó àãðåñ³ÿ';
    GroupBox1.Height := 40;
    GroupBox1.Repaint;
    Form1.Caption := IntTostr(GroupBox1.Height);

Так Form1.Caption всгеда остается 40!