Чтобы не стирало ( графика)

[nelo_001]

Вот она главная функция , тут в таймере стирается прошлое положение эллипса , чтобы создать иллюзию полета , но вместе с шариком стираются и имеджи ,как сделать так , чтобы имеджи , не стирались ?

procedure TForm1.Timer1Timer(Sender: TObject);
var y:Integer;
begin
 
 
if x<x2 then Exit;
Canvas.Brush.Color:=Color;
Canvas.FillRect(Canvas.ClipRect);
y:=Round(a*x*x+b*x+c);
Canvas.Brush.Color:=Color;
Canvas.Ellipse(x,y,x+5,y+5);
procABC(x1,x2,x3,y1,y2,y3,a,b,c);
for i:=x1 downto x2 do Canvas.Pixels[i,Round(a*i*i+b*i+c)]:=clRed;
 
x:=x-10;
 
 
end;

[Аватар]

Repaint есть у Image

[nelo_001]

Отлично можно как ни будь решить проблему бликов изображения ?
DoubleBuffered := True; не помогает

[min@y™]

не используй TImage, он не предназначен для рисования.

[phomm]

Надо делать примерно так, как описано вот тут.
http://programmersforum.ru/showthread.php?t=189572
Т.е. буфер, на него каждый раз (в таймере) рисуем всё заново (т.к. надо чистить FillReсt'ом), и в конце только сам буфер рисуем на форму. Имейджи и прочие контролы можно не использовать, но есть и с ними варианты.