Basit network Mesaj programı

//sadece edit1 ve memo1 ve button1 ekleyiniz...
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShellApi,StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  procedure ExecuteShellCommand(cmdline: string; hidden: Boolean);
    { Public declarations }
  end;
 
var
 a,b:string;
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure Tform1.ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
cmdbuffer: array [0..MAX_PATH] of Char;
begin
GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
StrCat(cmdbuffer, ' /C ');
StrPCopy(StrEnd(cmdbuffer), cmdline);
WinExec(cmdbuffer, flags[hidden]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 a:= edit1.text;
 b:=memo1.text;
 //c:= 'net send ' +a + ' ' +
ExecuteShellCommand('net send  ' + a+ ' ' + b , True);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.text:='';
end;