Player: Positionsanzeige um Zehntelsekunden erweitern

[Nils_13]

Hi,

in meinem Player habe ich die Anzeige der Position in Minuten + Sekunden so gemacht:

Delphi-Quellcode:

function TfrmMain.GetSongLengthAsString: String;
var Time: Integer;
begin
  Case Modus of
    moSamples: begin
        Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetPosition(Chan)));
        Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
      end;
    moMusik: begin
       Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetLength(Chan)));
       Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
     end;
    moStream: begin
       Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetLength(Chan)));
       Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
     end;
  end;
end;

Das Ergebnis: 03:45

Wie kann ich diese Anzeige um Zehntelsekunden erweitern ?
3:45:04
(die Zehntelsekunden laufen von 0 - 10, wenn 10 erreicht wurde, wird die Sekundenanzeige erhöht und die Zehntelsekundenanzeige auf 0 gesetzt).

Ich weiß nicht mal ansatzweise, wie ich das machen könnte.