Dicas Delphi - Como mudar imagens de acordo com as horas

Salve, salve amigos,

//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; 

Take care