Как сделать анимацию немерцающей

Мерцание возникает, когда цвет точки меняется два раза подряд. Например, правильнее объект при его перемещении стирать и затем рисовать на новом месте не на экране, а в памяти, и выводить на форму уже готовое изображение поверх предыдущего. В таком случае смена цветов на экране происходит только один раз.

var
  bm: TBitMap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm := TBitMap.Create;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
  with bm.Canvas do
  begin
    Font.name := 'Arial';
    Font.Size := 50;
    Font.Color := clBlue;
  end;
  Timer1.Interval := 100;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: string;
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Time, Hour, Min, Sec, MSec);
  with bm.Canvas do
  begin
    Brush.Style := bsSolid;
    Brush.Color := clWhite;
    FillRect(ClipRect);
    s := TimeToStr(Time);
    TextOut((bm.Width - TextWidth(s)) div 2,
    (bm.Height - TextHeight(s)) div 2, s);
    Pen.Mode := pmMask;
    Pen.Width := 20;
    Pen.Color := clLime;
    Brush.Style := bsClear;
    Rectangle(bm.Width div 2 - (MSec * bm.Width) div 5000,
    bm.Height div 2 - (MSec * bm.Height) div 5000,
    bm.Width div 2 + (MSec * bm.Width) div 5000,
    bm.Height div 2 + (MSec * bm.Height) div 5000);
  end;
  Form1.Canvas.Draw(0, 0, bm);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 484 • TDictionary Custom Sort 6 512 • Fast Watermark Sources 6 301 • 3D Designer 9 246 • Sik Screen Capture 6 636 • Patch Maker 7 011 • Айболит (remote control) 7 020 • ListBox Drag & Drop 5 892 • Доска для игры Реверси 97 169 • Графические эффекты 7 222 • Рисование по маске 6 521 • Перетаскивание изображений 5 392 • Canvas Drawing 5 761 • Рисование Луны 5 472 • Поворот изображения 4 998 • Рисование стержней 3 551 • Paint on Shape 2 816 • Генератор кроссвордов 3 689 • Головоломка Paletto 2 972 • Теорема Монжа об окружностях 3 778 • Пазл Numbrix 2 492 • Заборы и коммивояжеры 3 173 • Игра HIP 2 139 • Игра Go (Го) 2 076 • Симулятор лифта 2 451 • Программа укладки плитки 2 117 • Генератор лабиринта 2 594 • Проверка числового ввода 2 269 • HEX View 2 599 • Физический маятник 2 212