Скрин-сервер с изменяющимся изображением

[Drago56]

Я написал код на 4 таймерах ,не могу собрать их в 1 таймер, помогите пожалуйста!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls, jpeg, ImgList;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    mm1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Image1: TImage;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    tmr1: TTimer;
    tmr2: TTimer;
    tmr3: TTimer;
    tmr4: TTimer;
    procedure Exit1Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
    procedure tmr3Timer(Sender: TObject);
    procedure tmr4Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:Integer;
  b:Integer;
  d:string;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if tmr1.Interval = 5000 then
  tmr1.Enabled:=False;
  img1.Enabled:= True;
  img1.Visible:=True;
  tmr2.Enabled:=True;
  Image1.Visible:=False;
  Image1.Enabled:=False;
end;

procedure TForm1.tmr2Timer(Sender: TObject);
begin
  if tmr2.Interval = 5000 then
  tmr2.Enabled:=False;
  img2.Enabled:= True;
  img2.Visible:=True;
  tmr3.Enabled:= True;
  img1.Visible:=False;
  img1.Enabled:=False;
end;

procedure TForm1.tmr3Timer(Sender: TObject);
begin
 if tmr3.Interval = 5000 then
 tmr3.Enabled:=False;
  img3.Enabled:= True;
  img3.Visible:=True;
  tmr4.Enabled:= True;
  img2.Visible:=False;
  img2.Enabled:=False;
end;

procedure TForm1.tmr4Timer(Sender: TObject);
begin
 if tmr4.Interval = 5000 then
 tmr4.Enabled:=False;
  Image1.Enabled:=True;
  Image1.Visible:=True;
  tmr1.Enabled:=True;
  img3.Visible:=False;
  img3.Enabled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tmr1.Enabled:=True;
tmr2.Enabled:=False;
tmr3.Enabled:=False;
tmr4.Enabled:=False;
img1.Enabled:=False;
img2.Enabled:=False;
img3.Enabled:=False;
img1.Visible:=False;
img2.Visible:=False;
img3.Visible:=False;
end;

end.

[Drago56]

Спасибо всем, выручили!!!!!!!!Отличный сайт все дружные очень!!!Что бы я без вас делал!