[Galosh]

Кинь на форму компонент MediaPlayer(если нету) *и измени:

Код:

Display :=form1; 
displayrect:=rect(bevel1.left +4, bevel1.top +4,0,0); 
bevel1.width:=displayrect.right +8; 
bevel1.height :=displayrect.bottom +8; 
IF bevel1.height = 8 THEN 
 *self.clientheight:=bevel1.top 
ELSE 
 *self.clientheight:=bevel1.height + bevel1.top + 8;

на этот код(вставь его в On Click кнопки, которая открывает медиа файл)

Код:

 
With Mediaplayer1 do 
begin 
open; 
Display :=form1; 
displayrect:=rect(bevel1.left +4, bevel1.top +4,0,0); 
bevel1.width:=displayrect.right +8; 
bevel1.height :=displayrect.bottom +8; 
IF bevel1.height = 8 THEN 
 *self.clientheight:=bevel1.top 
ELSE 
 *self.clientheight:=bevel1.height + bevel1.top + 8; 
end;

уж если это не получится, то анверно я не умею обьснять. Если че, то пиши, вышлю полный исходник готового медиаплеера с подстройкой клипа под размер формы.
*