MediaPlayer и Playlist

[Kaifun]

Создал простой медия плеир

procedure TFMaibn.N3Click(Sender: TObject);
begin
Close;
end;

procedure TFMaibn.N2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then Exit;
try
Edit1.Text := ExtractFileName(OpenDialog1.FileNam e);
MP.FileName := OpenDialog1.FileName;
MP.Open;
MP.DisplayRect := Rect(0,0,Panel2.Width, Panel2.Height);
except
ShowMessage('Ошибка открытия файла!');
Exit;

end;
end;

Как сохдать для него плеилист???..
^_^ и можно еищё чтонить добавить??

[Alex21]

Как сохдать для него плеилист???..

На форуме куча примеров. Поиск тут-->

и можно еищё чтонить добавить??

Можно, даже не сомневайся