Delphi - Como crear Timage en tiempo de ejecusion

Deseo simular procesos en movimiento usando imagenes y necesito crear varias objetos Timage en tiempo de ejecusion.

En realidad es algo bastante sencillo

Para crear por ejemplo un boton

with TButton.Create(Self) do begin
Name := 'Boton1';
Parent := Self;
Left := 8;
Top := 8;
end;

ahora, si quieres hacer algo despues con el compoennte creado usa algo como esto

if TButton(FindComponent('Boton1'))<> nil then
with TButton(FindComponent('Boton1')) do begin
Left := 50;
Top := 50;
end;