Fórum Fechar o Form depois de 5 minutos aberto #613918

procedure TFormX.FormShow(Sender: TObject);
var
  minutos_ate_fechar: byte;
begin
  minutos_ate_fechar := 5; // 5 minutos
  Timer1.Enabled := False;
  Timer1.Interval := (1000 * 60) * minutos_ate_fechar;
  Timer1.Enabled := True;
end;

// evento OnTimer do objeto Timer
procedure TFormX.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False; // desabilita o timer
  FormX.Close;
end;