Una simplificación de tu código:
Código Delphi
[-]procedure TFPral.Establecer_Tiempos;
var Hs, Min, Seg: integer;
begin
Proceso.Min := 0;
Proceso.Max := Reproductor.Length Div 1000;
Proceso.Position := 0;
Seg := Reproductor.Length Div 1000;
Hs := Seg Div 3600;
Seg := Seg - (Hs * 3600);
Min := Seg Div 60;
Seg := Seg - (Min * 60);
LTiempo.Caption := Format('%.2d:%.2d:%.2d',[hs,Min,Seg]);
Ltema.Caption := ExtractFileName(Reproductor.FileName);
Proceso.Enabled := True;
Play.Enabled := True;
end;