1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure send;
var
 da:pstring;
 la:string;
begin
  la:=edit1.Text;
  da:=@la;
  net.Send('192.168.0.2',0,da,sizeof(da),false);
//         ip        port data, size  guaranteed
end;					

1:
2:

procedure netReceive(Sender: TObject; Host: string; Port: Integer;
  Data: Pointer; Size: Integer);					

1:
2:
3:
4:
5:
6:

var
 str:string
begin
 str:=String(Data^);
..
end;					

1:

da:pchar;					

1:

str := data;