Добрый вечер! Задачка конечно не очень сложная, я как раз этим недавно занимался, целую презентацию сделал! Способов уйма...
Например, если хочешь хранить файлы в самом приложении:
Создай несколько TImage (Image1[2,3,4]), сразу засунь в них картинки, и сделай их Visible = false. Следующий этап: Создай таймер, задай Interval между картинками (1000 = 1 сек) и вставь В процедуру OnTimer следующее:
var n: integer; {В начало программы}
n:=1; {В процедуру создания программы (OnCreate)}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if n = 1 then Image1.Visible := true;
if n = 2 then Image2.Visible := true;
if n = 3 then Image3.Visible := true;
{И так сколько тебе нужно}
n:=n+1;
end;
===========
Это первое, что пришло мне в голову, идей полно, если нужно, обращайся... Хотя я и согласен что мои методы решения проблемы примитивны, и эту проблему нужно наверное решить через массив какой-нибудь, он я даже не знаю, что это такое
