[pacodelphi]

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var 
  Busqueda1: TSearchRec;  
begin       
  if z=0 then
  begin
    Memo1.Lines.Add('El directorio actual es:C:\FOTOS\PUBLICIDAD\');
    form1.Timer1.Interval:= 2000;
    FindFirst('C:\FOTOS\PUBLICIDAD\'+'*.bmp',faAnyFile, Busqueda1);
    Memo1.Lines.Add(Pchar(Busqueda1.name));
    Image1.Picture.LoadFromFile('C:\FOTOS\PUBLICIDAD\'+Busqueda1.Name);
    Image1.Update;
    //ShowMessage( SysErrorMessage(GetLastError()) );
    //Image1.Update;
    z:=1;
    //p:=0;
  end     
  else
  begin           
    p:=FindNext( Busqueda1 );
    if p <> 0 then
    begin
      //form1.Timer1.enabled:=false;                 
      z:=0;                 
      ShowPublicidad();
      exit;
    end;
    Memo1.Lines.Add(Pchar(Busqueda1.name));
    Image1.Picture.LoadFromFile('C:\FOTOS\PUBLICIDAD\'+Busqueda1.Name);
  end;// end if
end;