TMediaPlayer: aktuelle Position anzeigen lassen?

[mlspider]

Hallo,

ich versuche mit:

Delphi-Quellcode:

procedure TForm1.AudioDateiffnenClick(Sender: TObject);
Var I: Integer;
    Minuten: Integer;
    Sekunden: Integer;
begin
 if OpenDialog1.Execute then
   begin
      MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.TimeFormat := tfMilliseconds;
    MediaPlayer1.Position := (Sekunden + (Minuten * 60)) * 1000;
I := MediaPlayer1.Position div 1000;
Minuten := I div 60;
Sekunden := I mod 60;
    StartButton.Enabled:=True;
    MMBitmapButton3.Enabled:=True;
    MMBitmapButton7.Enabled:=True;
   end;

die aktuelle Position zu ermitteln. Wie kann ich nun diese in einer Digit-Kompnete ausgeben lassen???

Ich hoffe der obige Quelltext ist so in Ordnung.

Danke!