//===============Durchlauf der Bilder===========================================
procedure TForm4.Timer2Timer(Sender: TObject);
begin
  if FileListBox1.Items.Count > 0 then
   begin
     if index > FileListBox1.Items.count -1 then
      index:= 0; //index auf "O" setzen
        FileListbox1.Selected[index]:= true; //Aktuellen index makieren
          bild:= Lowercase(ExtractFileExt(Bilddat + FileListBox1.Items[index]));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);// Laden der Bilder
          Form3.Image1.Picture:= Image1.Picture;// Kopieren der Bilder auf Form3
        end;

     inc(index); //Index +1
   end;
 end;

//============Durchlauf anhalten================================================
procedure TForm4.Button3Click(Sender: TObject);
begin
  Timer2.Enabled:= False;
end;

//============Durschlauf starten================================================
procedure TForm4.Button2Click(Sender: TObject);
begin
  Timer2.Enabled:= True;
  index:= 0; //Index auf "0" setzen
end;