Компонент происходит от TGraphicControl, по таймеру перерисовывается. Что нужно сделать, чтобы не было мерцания?

Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента
- то фон компонента перерисовываться не будет.

Код

constructor TMyControl.Create; begin  inherited;  ControlStyle := ControlStyle + [csOpaque]; end;

Добавлено @ 16:26
Мерцание формы
Как бы это осуществить рисование в окне без его дурацкого мерцания и без помощи создания виртуального изображения в памяти? WM_SETREDRAW здесь поможет?

Попробуйте этот код. Даже если некоторые компоненты имеют пару BeginUpdate / EndUpdate, то для таких компонентов, как TTreeView, интенсивное рисование может послужить причиной перемещения полосы прокрутки и появления других "барабашек". В таких ситуаций вместо дескриптора элемента управления используйте родительский дескриптор.

Код

procedure BeginScreenUpdate(hwnd: THandle); begin  if (hwnd = 0) then    hwnd := Application.MainForm.Handle;  SendMessage(hwnd, WM_SETREDRAW, 0, 0); end; procedure EndScreenUpdate(hwnd: THandle; erase: Boolean); begin  if (hwnd = 0) then    hwnd := Application.MainForm.Handle;  SendMessage(hwnd, WM_SETREDRAW, 1, 0);  RedrawWindow(hwnd, nil, 0, DW_FRAME + RDW_INVALIDATE +    RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);  if (erase) then    Windows.InvalidateRect(hwnd, nil, True); end;

Взято из http://delphiworld.narod.ru