1 - DriveCombobox
2 - DirectorylistBox
3 - filelistBox
4 - Timage
5 - UM Boatao ( de sua escolha)
Feito isto vamos colocar o seguinte código em seu botao:
procedure TForm1.Button1Click(Sender: TObject);
var
x,item:integer;
begin
item:=FileListBox1.Items.Count;
//ShowMessage(inttostr(item));
for x:=0 to item do begin
if x=item then begin
Showmessage('A apresentação abacou!');
end else begin
foto.picture.loadfromfile(DirectoryListBox1.Directory+'\'+FileListBox1.Items[X]);//vai passando item a item na filelistbox
end;
Sleep(2000); //intervalo entre uma imagem e outra
foto.Repaint; //remonta o image para apresentar a nova imagem
end;
end;
Prontinho você japode ver suas imagens passando uma a uma.
