Delphi - Problemas con MediaPlayer y TrackBar

Buenas a dias a todos, soy estudiante y estoy llevando Delphi, necesito ayuda en Mediaplayer y Trackbar, como hago al momento de dar play para el video el trackbar me calcule el tiempo de duración y al finalizar el video el trackbar se rebobine mejor dicho se ponga al inicio, y tambien como hago para que el video se adecue al reproductor (Ejm. si lo maximiso el video tambien lo debe hacer y si lo minimiso de igual manera) de antemano gracias por su ayuda y nos vemos pronto.

// en OnChange de trackbar;
mediaplayer1.pause;
mediaplayer1.position:=trackbar1.position;

// evento mouseUp
mediaplayer1.StartPos:=trackbar1.position;

// no es muy OOP pero tambien funciona...

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
mediaplayer1.pause;
mediaplayer1.StartPos:=trackbar1.Position;
mediaplayer1.Play;
end;