передавать данные
Код:
...
SendMessage(FWndThread,MY_MESSAGE,integer(PChar(DT)),n);
...
принимать данные
Код:
...
txt :=string(PChar(Mess.Wparam));
tg:=IntToStr(Mess.LParam);
...
З.Ы. имхо лучше передавать указатель на буфер и работать с байтами, а не конвертировать в String и потом высчитывать (но в этом случае процедуру ReadData необходимо переписать)