[NPIdea]

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';  //Para quitar los botones de control poner 'none'
      mul.DoObjectVerb(0);  //Esta es la propiedad que ajusta el tamaño.
      mul.URL:=Ruta Archivo;