浜田さん、ありがとうございます。
> Th.QSO.Flag := 8;
まだつまずいています。
StrPCopy(Th.QSO.Flag,8); でも StrPCopy(Th.QSO.Flag:=8); でもエラ−。
Hwnd2 := SendMessage(Hwnd1, WM_COPYDATA, Form1.Handle, LPARAM(@cds));
で送る時はどう書いたら良いですか。
ttmp:= ttmp + '8' + #$0D; //転送されない。
TH.QSO. として出てくる項目リストには var Flag1 : Word があります。