[demon-sheff]

Добрый день! Подскажите пожалуйста необходимо сделать смену картинки по времени. Делаю так:

Код:

procedure TForm5.Timer1Timer(Sender: TObject);
  var
 Index: integer;  //индекс картинки в ImageList
begin
Label1.Caption:=FormatDateTime('hh:mm:ss',Time);
  if (Label1.Caption>('06:00:00')) and (Label1.Caption<('22:00:00')) then
  begin
  Index:=0; // берем 1-ю картинку и вставляем в Image1
  Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap);
  end;
 if (Label1.Caption<('06:00:00')) and (Label1.Caption>('22:00:00')) then
  begin
  Index:=1; // берем 2-ю картинку и вставляем в Image1
  Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap);
  end;
end;

Но почему-то картинка не меняется. Что не так делаю?