Delphi dicas

Como mudar imagens de acordo com as horas

Altere o intervalo do timer para 200 ou como preferir.





procedure TForm1.Timer1Timer(Sender: TObject);

begin

        if date > strtodate('10:00:00') then image1.pictures.loadfranfile('c:	estefoto1.jpg');

        if date > strtodate('11:00:00') then image1.pictures.loadfranfile('c:	estefoto2.jpg');

end;