Получение размера mp3 файла

[Mickle]

Привет Всем!
мужики нужна помощь кто знает как можно получить размер проигрываемого файла безразлично хоть видео хоть мр3 запущеного с FileListBox или в самом FileListBox чтоб показывал размер файла
Мужики помогите .
Зарание благодарю...

[RSLoader]

Если вопрос именно в том, как узнать размер УЖЕ запущенного файла, то ответить не могу. Но если файл запускался с FileListBox, почему бы перед запуском не узнать его размер?
Если вопрос в том, как вообще по имени файла узнать его размер, то можешь сделать так. Здесь в ComboBox забиваются размеры файлов из FileListBox.

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
  f:File of Char;
begin
  FileListBox1.Directory:='D:\BP\!PAS\!POLYGON\';
  for i:=1 to FileListBox1.Count do
  begin
    AssignFile(f,FileListBox1.Items[i-1]);
    {$I-}
    Reset(f);
    ListBox1.Items[i-1]:=IntToStr(FileSize(f));
    CloseFile(f);
    {$I+}
    if IOResult<>0 then ListBox1.Items[i-1]:='unknown';
  end;
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
  ListBox1.ItemIndex:=FileListBox1.ItemIndex;
end;