TMsgtest = record
    LParamLo: Integer;
    LParamHi: Integer;
  end;var LP: TMsgtest;LP.LParamLo:=1;
LP.LParamHi:=68;SendMessage(...,LP);