Pues se me ocurre esto
- Colocas un TLabel
- Haces un bucle For ...
- Pones un pequño retardo
- Vas cambiando la posición del label con la propiedad Left
A bote pronto algo asi
Pones el label el la posición Left := 10 para que empiece bien
For i := 10 to 500 do
begin
Sleep(100);
Label1.Left := i;
end;
Va todo de memoria y sin Delphi delante.
No se los valores máximos de left en tu pantalla, he puesto 500 a ojo
Cambiando el valor de Sleep irá más rápido o más lento (si es que funciona)