[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!

Пробывал весь код выложить дак:
Вы ввели слишком длинный текст (21722 символов). Пожалуйста, сократите его до 10000 символов
Лан даю код по ЧекБоксу:

Код:

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);
 // òóò òðåáà áóäå ïîãðàòèñÿ ç âèñîòîþ ôîðìè!}
end;