Se puede hacer un bucle a un TTimer
 

Hola
Me explico.
Para no meter un gif, he pensado en poner dos imagenes y con un ttimer que salte cada 2 segundos una de ellas y la otra no sea visible. Pero me funciona sólo una vez.

Tengo el siguiente code:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image3.Visible := True;
Image2.Visible := False;
Timer3.Enable := True
end;

Lo que no se como decirle que a los 5 segundos otra vez sea al reves:
Image3.Visible := False;
Image2.Visible := True;

Gracias

Si originalmente tienes puesto un valor verdadero y otro falso, puedes hacer:

Código Delphi [-]
procedure TForm1.Timer3Timer(Sender: TObject);
begin
  Image3.Visible := not Image3.Visible;
  Image2.Visible := not Image2.Visible;
end;

Pero esto puede producir que flashee, pues en algún momento ninguno de los dos será visible, si esto sucede puedes tener una variable que pertenezca al form, cambiar el valor de esta de la misma manera, y ocultarlos en el orden correcto.

Saludos!

Perfesto y corresto
 

Lo he probado y funciona correctamente.

Gracias