længde af CD

jeg bruger denne kode til at få længden af mp3 filer, men hvordan går man med CDer (*cda)??? der skulle man bruge en helt anden måde hvis jeg ikke husker forkert.

var
  R : Integer;
Time: Integer;
begin
    R := MediaPlayer1.Position;
  Time := mediaplayer1.Length;

caption := 'Format('%.2d:%.2d', [R div 60000, (R mod 60000) div 1000])' //tæller op

caption2 := 'Format('%.2d:%.2d', [Time div 60000, (Time mod 60000) div 1000]);//længden af sangen
end;

og et spørgsmål mere. hvordan kan jeg få en caption fra en popupmenu items?? uden at bruge PopMenu.caption
kan man ikke bruge noget i denne stil; popupmenu.selected[popupmenu.itemindex].caption???