Show tcp response in delphi 7

if Pos('100 Continue',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 100 Continue';
if Pos('101 Switching Protocols',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 101 Switching Protocols';
if Pos('200 OK',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 200 OK';
if Pos('200 Connection established',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 200 Connection established';
if Pos('201 Created',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 201 Created';
if Pos('202 Accepted',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 202 Accepted';
if Pos('203 Non-Authoritative Information',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 203 Non-Authoritative Information';
if Pos('204 No Content',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 204 No Content';
if Pos('205 Reset Content',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 205 Reset Content';
if Pos('206 Partial Content',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 206 Partial Content';
if Pos('300 Multiple Choices',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 300 Multiple Choices';
if Pos('301 Moved Permanently',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 301 Moved Permanently';
if Pos('302 Found',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 302 Found';
if Pos('303 See Other',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 303 See Other';
if Pos('304 Not Modified',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 304 Not Modified';
if Pos('305 Use Proxy',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 305 Use Proxy';
if Pos('307 Temporary Redirect',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 307 Temporary Redirect';
if Pos('400 Bad Request',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 400 Bad Request';
if Pos('401 Unauthorized',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 401 Unauthorized';
if Pos('402 Payment Required',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 402 Payment Required';
if Pos('403 Forbidden',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 403 Forbidden';
if Pos('404 Not Found',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 404 Not Found';
if Pos('405 Method Not Allowed',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 405 Method Not Allowed';
if Pos('406 Not Acceptable',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 406 Not Acceptable';
if Pos('407 Proxy Authentication Required',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 407 Proxy Authentication Required';
if Pos('408 Request Time-out',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 408 Request Time-out';
if Pos('409 Conflict',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 409 Conflict';
if Pos('410 Gone',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 410 Gone';
if Pos('411 Length Required',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 411 Length Required';
if Pos('412 Precondition Failed',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 412 Precondition Failed';
if Pos('413 Request Entity Too Large',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 413 Request Entity Too Large';
if Pos('414 Request-URI Too Large',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 414 Request-URI Too Large';
if Pos('415 Unsupported Media Type',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 415 Unsupported Media Type';
if Pos('416 Requested range not satisfiable',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 416 Requested range not satisfiable';
if Pos('417 Expectation Failed',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 417 Expectation Failed';
if Pos('500 Internal Server Error',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 500 Internal Server Error';
if Pos('501 Not Implemented',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 501 Not Implemented';
if Pos('502 Bad Gateway',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 502 Bad Gateway';
if Pos('503 Service Unavailable',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 503 Service Unavailable';
if Pos('504 Gateway Time-out',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 504 Gateway Time-out';
if Pos('505 HTTP Version not supported',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: 505 HTTP Version not supported';
if Pos('Connection: close',AThread.Netdata)<>0 then bsSkinStatusPanel2.Caption:='Respon: Connection: close';