Reproductor de audio y videos

[Khronos]

Hola.

Abro este hilo para que probeis mi programa si no es mucha molestia, se llama Phoenix. Es un reproductor de audio y video, esta hecho en CodeGear Delphi 2007.
Me gustaria que me dierais vuestra opinion del programa, se lo enseñe a mis amigos y les gusto mucho sobro todo la interface. Para mis conocimientos de programacion (llevo año y medio programando) creo que esta bien, aunque el codigo no es muy elegante.
Si ha alguien le interesa algo de codigo me lo puede decir y lo pongo.

---------------------------------------
Tambien os dejo una funcion que hice para averiguar la duracion de una cancion o video, funciona perfectamente pero queria que me dierais vuestra opinion porque al abrir mas de 20 canciones tarda unos segundos en cargarlas todas.

Código Delphi [-]
function GetTime(path: string): string;
var
mil, min, sec, hor: integer;
segundos, minutos: string;
MP: TMediaPlayer;
begin
MP:= TMediaPlayer.Create(FPrincipal);
mp.Parent:=FVideo;
mp.Left:=-1000;
mp.Top:=-2000;
mp.FileName:=path;
mp.Open;
mp.TimeFormat:=tfMilliseconds;
mil:= MP.Length;
sec:= mil div 1000;
min:= sec div 60;
hor:= min div 60;
sec:= sec mod 60;
segundos:=inttostr(sec);
minutos:=inttostr(min);
if min<10 then begin
minutos:='0' + inttostr(min);
end;
if sec<10 then begin
segundos:='0' + inttostr(sec);
end;
GetTime:= inttostr(hor) +':' +minutos + ':' + segundos;
mp.FileName:='';
mp.Close;
mp.Destroy;
end;

El enlace de descarga es este:
http://www.megaupload.com/es/?d=6ZCTPNB8

PD: No podia subirlo al clubdelphi por exceso de tamaño.

Salu2