[Casimiro Notevi]

Lo puedes abreviar un poco:

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