Delphi相談室（超初心者用）その１１

>>438
const
　WM_OriginalMsg = WM_USER+1;

　procedure OriginalMsg(var Msg : TOriginalMsg); message WM_Original;

type
　TOriginalMsg = record
　　s : string;
　　i : integer;
　　p: Pchar;
　end;

PostMessage(Handle , WM_original ,0,0);

この場合どうやれば
procedure OriginalMsg(var Msg : TOriginalMsg); message WM_Original;
のMsgに代入出来るのでしょうか？
小出しになってしまいすいません