Hola.
No sé de ningún componente que haga eso, pero no es difícil de implementar:
Código Delphi
[-]
implementation
procedure TForm2.FormShow(Sender: TObject);
begin
KeyPreview:= True; Timer1.Interval:= 60000*3; Timer1.Enabled:= True;
end;
procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
Timer1.Enabled:= False;
Timer1.Enabled:= True;
end;
...
...
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:= False;
Action:= caFree;
end;
end.
Saludos.