[S.M.S.]

¿No te vale el componente Shape de la paleta Additional?. Utiliza dos, al primero le das forma de rectángulo y le cambias el color blanco por uno azul en la propiedad Brush.Color; al segundo le cambias el color a rojo y la propiedad Shape a stCircle. Luego para simular el moviento de este último sobre el primero puedes ir cambiando las valores de Left y Top.

Saludos.