ok gracias ya resolvi el problema. Era un problema mio aca dejo el codigo para esto por si alguien lo quiere y dejo un ejemplo con 2 labels en un rar
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
pertop:=image2.Top;
perleft:=image2.Left;
if image2.Top>image1.top then image1.Top:=image1.top+3 else
image1.Top:=image1.top-10;
if image2.left>image1.left then image1.left:=image1.left+3 else
image1.left:=image1.left-10;
end;
Gracias