Как создать цикл для обновления картинки в TImage?

procedure TForm2.Image1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('18.png');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if FileExists('c:\tmp\18.bmp') then Image1.Picture.LoadFromFile('c:\tmp\18.bmp');
end;

procedure TForm1.GetAllFiles( Path: string; Lb: TListBox );
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Items.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFiles( 'C:\Papka', listbox1 );
end;
 
end.

чтобы вытащить только имена файлов нужно поменять строку Lb.Items.Add( Path + '\' + sRec.Name );
  на Lb.Items.Add(sRec.Name );  так будет проще дальше работать с ней.