Mediaplayer Spielzeit richtig anzeigen

[Garfield]

Delphi-Quellcode:

MediaPlayer1.TimeFormat := tfHMS;
PosMedia := MediaPlayer1.Position;

PosMedia ist ein LongInt.

Delphi-Quellcode:

HMSRecord = record
  Hours   : byte;
  Minutes : byte;
  Seconds : byte;
  NotUsed : byte;
end;

with HMSRecord[PosMedia] do
  Label2.Caption := IntToStr(Hours) + ':' + IntToStr(Minutes) + ':' + IntToStr(Seconds);

So was ähnliches müsste auch in der Hilfe von Delphi stehen.