Bueno, pues después de leer foros en todo el mundo, por fin lo he conseguido.
Para el que tenga el mismo problema:
Código Delphi
[-]
procedure TMultimedia.FormActivate(Sender: TObject);
var mul: TWindowsMediaPlayer;
x, y: Integer;
begin
Mul:=TwindowsMediaPlayer.Create(Self);
mul.Parent:=Multimedia;
mul.Name:='M';
mul.Top:=y;
mul.Left:=x;
mul.Width:=300;
mul.Height:=225;
mul.uiMode:='full'; mul.DoObjectVerb(0); mul.URL:=Ruta Archivo;