[v1s2222]

Проблема делфи 7 (исчезают компоненты такие как TButton, TCheckBox, TStaticText). Лично я исправлял так:

Код:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i: Integer;
begin
// Перерисовываю TButton, TCheckBox, TStaticText, TRadioButton

  for i:=0 to (ComponentCount - 1) do begin
    if(Components[i].ClassType = TButton) then
      TButton(Components[i]).Repaint;

    if(Components[i].ClassType = TCheckBox) then
      TCheckBox(Components[i]).Repaint;

    if(Components[i].ClassType = TStaticText) then
      TStaticText(Components[i]).Repaint;

    if(Components[i].ClassType = TRadioButton) then
      TRadioButton(Components[i]).Repaint;
  end;
end;

Конечно это далеко не идеальный вариант, тут идет цикл по всем компонентам, но все-таки как по мне этот вариант лучше, чем например тот же таймер (как советовали на др. форуме).