procedure TMainForm.Timer1Timer(Sender: TObject);
var
 TheLength: LongInt;
 mysecond, myminute, myhour: longint;
begin
[ Player.TimeFormat := tfMilliseconds;
 TheLength := Player.position;

 mysecond := (thelength div 1000)mod 60;
 myminute := (thelength div (60 * 1000))mod 60;
 myhour := (thelength div (3600 * 1000));

 label5.caption := inttostr(myhour)+':'+inttostr(myminute)+':'+inttostr(mysecond)+'\';
end;