Bei Messages geht es ganz einfach. Du definierst nur einen eigenen Record, der bspw. so aussieht:
Delphi-Quellcode:
type TSpecialMessage = packed record
Msg: Cardinal;
WParam:LongInt;
Messwert:Single;
Result:LongInt;
end;
Und denn verwendest du in Do_Done.