procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var TempStr:TStringList;
    Command:String;
begin
if not AThread.Terminated and AThread.Connection.Connected then begin
    
    TempStr:=TStringList.Create;
    Command:=AThread.Connection.ReadLn;
    try
    //memo1.Lines.Add(Command);
      try
      Section.Enter;
      Spisok.Add(Command);
      finally
      Section.Leave;
      end;
//==============================================================================
    TempStr.Clear;
    TempStr.Add(IntToStr(Length(Command)));
    AThread.Connection.WriteStrings(TempStr);
//==============================================================================
    Except
    AThread.Connection.Disconnect;
    end;
    TempStr.Free;
end;
end;