Evitar el refresco al mover objeto

[pjmedina]

Buenas a todos,

El problema lo tengo en una aplicación el delphi 7, en la cual tengo un formulario con un timer, y un panel que debe de ir moviendose cada vez que se ejecuta el timer.

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if P00.top>=10 then
P00.Top:=P00.Top-10
else
P00.top:=400;
end;





El problema que tengo con esto, es que cada vez que se ejecuta el timer, hace como un parpadeo el formulario. Me gustaría saber si hay alguna forma de evitar eso.

Gracias.