Fórum imagens alternando #212688

Var
  TempoImg, ContImg:integer;

procedure TForm2.FormCreate(Sender: TObject);
begin
   ContImg:=0;
   TempoImg:=0;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   dec(TempoImg);
   if TempoImg < 0 then
      begin
      case ContImg of
      0: Desenha(´D:\windows\Por-do-sol.bmp´,10,20);
      1: Desenha(´D:\windows\Inverno.bmp´,10,20);
      2: Desenha(´D:\windows\Montanhas.bmp´,10,20);
      3: Desenha(´D:\windows\Ninfeias.bmp´,10,20);
      else
         begin
         ContImg:=0;
         Desenha(´C:\windows\bolhas.bmp´,10,20);
         end
      end;
      inc(ContImg);
      TempoImg:=5; // a cada 5 segundos
      end;
end;

procedure TForm2.Desenha(figura: String; H, V: Integer);
Var
   Imagem :TBitMap;
begin
   Imagem := TBitMap.Create;
   Try
   Imagem.LoadFromFile(Figura);
   Canvas.Draw(H,V,Imagem);
   Except
   ShowMessage(´ Arquivo não foi localizado !´);
   end;
end;