[iGeTT]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var i: Integer;
begin
  if i=10 then i:=0;
  Inc(i);
  Image1.Picture.LoadFromFile(Path[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
 for i:=1 to 10 do
   Path[i]:=OpenDialog[i].FileName;
 Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer1.Enabled:=False;
end;

Button1 - запуск
Button2 - остановка
Ожидается, что все OpenDialog заполнены.
Не забудь по умолчанию у таймера поставить Enabled в false.
И в начале, в var объяви массив:

Код:

var Path: array [1..10] of string;