procedure TForm1.Button1Click(Sender: TObject);
var
MsgName: array[0..127] of WideChar;
Buf: array[0..1023] of WideChar;
begin
StringToWideChar(Edit1.Text, @MsgName, 128);
StringToWideChar(Memo1.Lines.Text, @Buf, 1024);
NetMessageBufferSend(nil, @MsgName, nil, @Buf,
Length(Memo1.Lines.Text)*2+2);
end;