Muchas gracias por las respuestas pero ya encontre la solucion con 2 sencillas funciones que hice:
Código Delphi
[-]
function ScreenHeigth(y : integer): integer;
const
BarraTareas=29;
var
Altura: integer;
begin
Altura:= screen.Height - BarraTareas;
result:= Altura - y;
end;
function ScreenWidth(x : integer): integer;
var
Ancho: integer;
begin
Ancho:= screen.Width +2; result:= Ancho - x;
end;
var
Rectangulo :TRect;
begin
with Rectangulo do
begin
Left:=0;
Top:=0;
Right:=Fmini.Width;
Bottom:=FMini.Height;
end;
mediaplayer1.Display:=FMIni.PVideo;
MediaPlayer1.DisplayRect:=Rectangulo;
FMini.timer2.enabled:=true;
FMini.PControles.Top:=104;
FMini.Top:=ScreenHeigth(FMini.Height);
FMini.Left:=ScreenWidth(FMini.Width);
Fmini.showmodal;
Como sospechareis es para hacer una mini ventanita en la esquina de la pantalla como hace el reproductor de windows, por fin lo consegui
Que bien se ven los videos!!
Salu2