Mover Objetos en ejecucion.

[kman]

Saludos Delphinianos!

Necesito me ayuden con el siguiente codigo, ya que no soy un pro en esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var x: integer;
begin
        for x:= 1 to 10 do
        begin
        shape1.Top:= +1;
        end;
if shape1.Top= 0 then
        for x:= 1 to 10 do
        begin
        shape1.Top:= -1;
        end;
end;
end.

Lo que trato hacer es que al hacer click en el boton el objeto se mueva hasta el tope del formulario y que regrese su punto original al hace click nuevamente, pero que esto se vea... frama por frama?