@Renato_Souza_Delphi, explicando de maneira bem simples o que eu tinha mencionado na outra resposta.
No Delphi na barra de menu vá em:
- Component / Import / Component.
- Na tela seguinte escolha a opção Import ActiveX Control.
na proxima tela localize no grid: 
Selecione o nome da paleta como deseja eu deixei como ActiveX
.
- Na próxima tela escolha a opção Install To New Package e finalize.
- Depois verifique que foi criada no Delphi a paleta de componentes que você definiu anteriormente ( passo 4 ).
- Coloque no Form o componente
TWindowsMediaPlayer
desta nova paleta e um Timer
configurando-o com o tempo que você quiser.
Vá na propriedade do TWindowsMediaPlayer
e ajuste sua propriedade Align
: alClient
.
Segue o código abaixo com uma simples implementação, na linha de código contendo FLista.Add('arquivo.png')
substitua a string contendo o caminho dos arquivos que você quer apresentar.
Implementação
unit frmPrincipal;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, WMPLib_TLB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TForm1 = class(TForm)
wm: TWindowsMediaPlayer;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FIndex: Integer;
FLista: TStringList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FLista := TStringList.Create;
FIndex := 0;
FLista.Add('arquivo.png');
Flista.Add('arquivo.mp3');
Timer1.Enabled := True;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil( FLista );
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FIndex > 1 then
Exit;
wm.URL := FLista.Strings[FIndex];
wm.controls.play;
Inc(FIndex);
end;
end.
Isso é um exemplo simples do que você pode fazer facilmente com o Activex
do windows media player, existem inúmeros métodos e recursos que você pode implementar qualquer dúvida é só falar, não pude detalhar e escrever um código consistente por falta de tempo mas espero que você tenha pegado a ideia.