procedure TForm1.CheckBox1Enter(Sender: TObject);
begin
  Windows.SetFocus(Form1.Handle); 
end;

function GetPageFileInfo: String;
var
  RK: HKEY;
  Size, Kind: DWORD;
begin
  Result:= '';
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', 0, KEY_READ, RK) = ERROR_SUCCESS then
  begin
    Size:= 0;
    Kind:= 0;
    if (RegQueryValueEx(RK, 'PagingFiles', nil, @Kind, nil, @Size) = ERROR_SUCCESS) and (Kind in [REG_MULTI_SZ]) then
    begin
      SetLength(Result, Size);
      RegQueryValueEx(RK, 'PagingFiles', nil, @Kind, PByte(Result), @Size);
      SetLength(Result, StrLen(PChar(Result)));
    end;
    RegCloseKey(RK);
  end;
end;