dein readln wartet halt bis was ankommt, und wenn der server grad nix schickt, hängts halt
wenn du dir die function readln mal richtig angeguckt hättest wüsstest du, das diese mit 3 parametern aufgerufen werden kann:
ATerminatorString
ATimeout
AMaxLineLength
wenn ich mich recht erinnere