yes. make it easier on your self and create two new functions OldReadString:String(t:TStream) and OldWriteString(s:String,t:TStream).
the write string should write the length and then the string bytes and the read should read the int and then the string bytes.
the write string should write the length and then the string bytes and the read should read the int and then the string bytes.