TIdECHOServer.DoExecute CPU 100%

      IOHandler.CheckForDataOnSource();
replace with
      IOHandler.CheckForDataOnSource(5);

will ok.

function TIdECHOServer.DoExecute (AContext:TIdContext): boolean;
begin
  result := true;
  with AContext.Connection do begin
    while Connected do begin
      IOHandler.CheckForDataOnSource(5);
      IOHandler.Write(IOHandler.InputBufferAsString);
     // Write(CurrentReadBuffer);
    end;
  end;
end;