Delphi сообщение TCS

var
  MsgTcs,TcsA: OleVariant;// CSDN_TLB.IMessages;

     TcsA:=TcsApp;
     MsgTcs:=TcsA.Messages;
     MsgTcs.CreateNew;
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'TYPE')].Value          := 'O';
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'SUBJECT')].Value       := 'ПРОШУ РАССМОТРЕТЬ ЗАЯВКУ за N '+ exDBGrid1.DataSource.DataSet.FieldValues['NMK_NOTE'];
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'HIGH_PRIORITY')].Value := False;
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'READ_REQUEST')].Value  := False;
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'USER_FLAG')].Value     := False;
     MsgTcs.Properties[SelectPropertiesId(MsgTcs,'USER_COMMENT')].Value  := 'Отправлено средствами АПИ';
     MsgTcs.SaveChanges;

//-----------------------
function SelectPropertiesId(ModuleOpen:OleVariant; FieldsName:String):Integer;
var
 i: Integer;
begin
  Result:=-1;
  For i:=0 to ModuleOpen.PropertiesCount-1 do
  if UpperCase(ModuleOpen.Properties[i].Name)=UpperCase(FieldsName) then begin
    Result:=i;
    Break;
  end;
end;