[iGeTT]

Фуф...
А обязательно извращенство с десятью кнопками? Может через листбокс?
Вот так например:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
   i:=-1;
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i = ListBox1.Items.Count-1 then i:=-1;
 i:=i+1;
 Label1.Caption:=IntToStr(i);
 Image1.Picture.LoadFromFile(sListBox1.Items[i]);
end;

P.S. Если не понятно: 4 кнопки, две - открыть файл и удалить файл из списка, еще две - старт и стоп. Листбокс, который хранит пути к файлам. Ну и таймер.

[kriv0y]

Спасибо, большое, я разобрался!!!
Поскольку картинки уже загружены я сделал из них массив

m:array[1..10] of TImage;

И как ты указывал сделал

timer1.Interval:=5000;
if i>10 then i:=0;

Inc(i);
Image11.Picture:=m[i].Picture;


Огромное спасибо!!!!