TMediaPlayer: aktuelle Position anzeigen lassen?

[Birzenbae]

so bitte:

Delphi-Quellcode:

function hour (zeit: integer): String;
var a : Real;
    min, h : Integer;
begin
a:= zeit /1000;
min:= round(a) div 60;
h := min div 60;                                   //berechnung Stunde
if h<10 then Result:='0' + inttostr(h)+':'         //ausgabe wenn stunde 1stellig
else Result:=inttostr(h)+':';                      //ausgabe wenn stunde 2stellig
end;

function minute (zeit : integer):string;
var a : Real;
    min : Integer;
begin
a := zeit / 1000;
min := round(a) div 60;                             //berechnung minute
if min < 10 then Result := '0' + inttostr(min)+':'  //ausgabe wenn minute 1stellig
else Result := inttostr(min) + ':';                 //ausgabe wenn minute 2stellig
end;

function second (Zeit : integer): string;
var a : Real;
    sec : Integer;
begin
a := zeit / 1000;
sec := round(a) mod 60;                             //berechnung sekunde
if sec < 10 then Result := '0' + inttostr(sec)      //ausgabe wenn sekunde nur 1stellig
else Result := inttostr(sec);                       //ausgabe wenn sekude 2stellig
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := hour(Mediaplayer1.Postion);    //Label1 = stunde
Label2.Caption := minute(Mediaplayer1.Postion);  //Label2 = minute
Label3.Caption := second(Mediaplayer1.Postion);  //Label3 = sekunde
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{cmd. zum starten des Players}
Timer1.Enabled:=true;     //startet timer wenn player startet aber timer muss von anfang enabled auf false stehen
end;

das mit dem übergeben von string in Integer brauchste hier nicht das wird alles in den functions gemacht.
P.S: hab noch net getestet obs geht aber compiler zeigt ma keinen fehler an.