#pas
procedure TMailClient.Authorize;
var
  Pack: TMRIMPacket;
  Data: Pointer;
begin
  if Connected then
  begin
    MMP_Pack(@Pack, FSeq, MRIM_CS_LOGIN2, FSocket.Port, FSocket.IP);
    MMP_AddLPS(@Pack, Data, Mail);
    MMP_AddLPS(@Pack, Data, PassWord);
    MMP_AddUL(@Pack, Data, DWORD_Status[FStatus]);
    MMP_AddLPS(@Pack, Data, 'Статус строкой');
    MMP_AddLPS(@Pack, Data, Caption);
    MMP_SendPack(FSocket.Socket, @Pack, Data);
    FreeMem(Data);
    FSeq := FSeq + 1;
  end;
end;