[v1s2222]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.DoubleBuffered := True;
end;

Это поможет, если мелькает графика (например при выводе на канву).