CPU hunter...

 I've uploaded a new version the binary, with a tiny change that reduces notably the CPU usage just introducing a Sleep(1) in the main function:

var
  engine: TChessEngine;
  think: TMoveStatus;

begin
  //ReportMemoryLeaksOnShutdown := True;

  engine := TChessEngine.Create;
  try
    WriteLn('ChessKISS');
    WriteLn('version ' + GAME_VERSION + ' ' + RELEASE_DATE);
    {$IFDEF WIN32}
    WriteLn('32 bits');
    {$ELSE}
    WriteLn('64 bits');
    {$ENDIF}
    WriteLn;
    WriteLn('Type "help" for a list of available commands');

    repeat
      Sleep(1);  //here goes the change

      think := engine.Think;
      if think in [msCheckmate, msStalemate, msWithdraw, ms50MovesRule, msThreefoldRep] then
      begin
        engine.SaveAperture(think);
        engine.SendDataToWinboard(think, '');
        engine.Clear;
      end;

      if engine.GameStatus = gsQuit then
        Break;

    until False;
  finally
    engine.Free;
  end;
end.

Thanks Graham for pointing it out!