[Mp3]

вот так примерно не пашет чет%)

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
if OpenDialog1.Execute then
Begin
s:=TStringList.Create;
edit1.Text:=s.Strings[2];
s.Free;
end;
end;
end.