interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
  function NetMessageBufferSend(servername:PWideChar;messagname:PWideChar;fromname:PWideChar;
                messagebody:PWideChar;var size:integer):integer;stdcall;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
{$R *.dfm}
function NetMessageBufferSend;external 'netapi32.dll' name 'NetMessageBufferSend';
end.