Net Send i Delphi kode

Jeg har lett lenge etter en måte å sende net-send i delphi med, og var 100% sikker på at denne skulle funke:

KODESTART:
function NetSend(dest, Source, Msg: string): Longint; overload;
type
  TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar;
  buf: PWideChar; buflen: Cardinal): Longint;
  stdcall;
var
  NetMessageBufferSend: TNetMessageBufferSendFunction;
  SourceWideChar: PWideChar;
  DestWideChar: PWideChar;
  MessagetextWideChar: PWideChar;
  Handle: THandle;
begin
  Handle := LoadLibrary('NETAPI32.DLL');
  if Handle = 0 then
  begin
    Result := GetLastError;
    Exit;
  end;
  @NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
  if @NetMessageBufferSend = nil then
  begin
    Result := GetLastError;
    Exit;
  end;

  MessagetextWideChar := nil;
  SourceWideChar := nil;
  DestWideChar := nil;

  try
    GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
    GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
    StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
    StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);

  if Source = '' then
    Result := NetMessageBufferSend(nil, DestWideChar, nil,
    MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
  else
  begin
    GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
    StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
    Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
    MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
    FreeMem(SourceWideChar);
  end;
  finally
    FreeMem(MessagetextWideChar);
    FreeLibrary(Handle);
  end;
end;

function NetSend(Dest, Msg: string): Longint; overload;
begin
  Result := NetSend(Dest, '', Msg);
end;

function NetSend(Msg: string): Longint; overload;
begin
  Result := NetSend('', '', Msg);
end;
KODESLUTT;

men av en eller annen grunn blir det IKKE sendt noen net-send når jeg kaller

KODESTART:
NetSend(edReciever.Text,edMld.Text+' -t'+edTermTime.Text);
KODESLUTT;

programmet skal brukes til å slå av pcene på en skole når skolen stenges, og net send er aktivert på maskinene (har prøvd manuelt...)

KAN NOEN HJELPE???