procedure ThiMediaPlayerEx._var_FrameRate;
var StatusParm: TMCI_Status_Parms;
begin
    if FMedia.Width = 0 then
      begin
       dtReal(_Data, 0);
       exit;
      end; 
    StatusParm.dwItem := $400E{MCI_STATUS_TIME_FORMAT} and $7FFFFFFF;
    mciSendCommand(FMedia.DeviceID, MCI_STATUS,  MCI_WAIT or MCI_STATUS_ITEM, cardinal(@StatusParm));
    dtReal(_Data, StatusParm.dwReturn / 1000);
end;