[M.A.D.M.A.N.]

Код:

timetostr(mediaplayer1.Length*0.00000001);

Даст примерное время.

Код:

function SolveForY(X, Z: LongWord): Byte;
begin
  if Z = 0 then Result := 0
  else Result := Byte(Trunc( (X * 100.0) / Z ));
end;

function GetPercentDone(FMinValue,FCurValue,FMaxValue:LongWord): Byte;
begin
  Result := SolveForY(FCurValue - FMinValue, FMaxValue - FMinValue);
end;

Выведет в процентах.
Для замера времени дуцше использовать TTimer