[AndrecitoPz]

Probaste con sto???

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if image1.Visible = true then begin
  image1.Visible := False
end else if image1.Visible = false then begin
  image1.Visible := true;
  end;
end;