var
  Form2: TForm2;
  tmp:String;

implementation

uses Unit1;

{$R *.DFM}


procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if tmp = '' then
    Form1.Close
  else
    tmp:='';
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  Label1.Caption:=TimeToStr(Time);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
tmp:='';
  //Timer1.Interval:=60000;
  Form1.KeyPreview:=true;
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  tmp:=Key;
end;

머리로 쥐어짜보다가 위처럼 하니까 되긴되네요.
근데, OnMouseMove, OnKeyPress이벤트마다 다 연결시켜줘야 합니다. -_-"
그리고, OnMouseMove이벤트에는.. x, y값 변경여부를 Timer1이벤트에다
연결시켜주면 되겠네요.