искажение сообщения

посылаю сообщение по UDP следующим образом:
SendMes.Mess:=Memo2.Text;

SendTo(Sock,SendMes,SizeOf(SendMes),0,Target,SizeOf(Target));

где : SendMes:TypeMes;

type TypeMes = record
MesType : byte;
NameUser : string;
NumPacked : integer;
AllPackeds : integer;
Size : integer;
Mess : string;
end;

на сервере ловлю его :RecvFrom(Sock,RecMes,SizeOf(RecMes),0,SenderAddres,k);
где RecMes:TypeMes;
k=SizeOf(SenderAddres);

вывожу сообщение : Form1.Memo1.Lines.Add(RecMes.NameUser+':'+ RecMes.Mess);

4 сообщения выводятся нормально, а затем поле RecMes.Mess искажается.

Если вместо SendMes.Mess:=Memo2.Text; написать SendMes.Mess:='message'; то все работает норамльно, НО мне то нужно считывать сообщение из Memo2!!!!

Подскажите плиз в чем проблема.