OK, masz to źródło, o które prosiłeś:
Teraz krótki opis:
tutaj label, na którym wyświetla się czas całkowity to: czasCalkowity ;).
Ponadto, myślę, że kod jest zrozumiały. Może nie jest za bardzo profesjonalny(bo to jest wycinek z mojego programu), ale działa :)
procedure TForm1.CalkowityCzas(nazwaPliku: String);
var
sekunda, minuta: integer;
sek: string;
begin
player.TimeFormat:=tfMilliseconds;
player.FileName:=nazwaPliku;
try
player.Open;
otwarty:=true;
except begin
otwarty:=false;
end;
end;
if otwarty=true then begin
sekunda:=player.length div 1000;
while sekunda>=60 do begin
sekunda:=sekunda-60;
minuta:=minuta+1;
end;
if sekunda =minuta60 then begin
sek:=sekAkt-(minuta60);
minuta:=minuta+1;
end
else begin
if sekAkt