type
TMyObject = class
procedure Rev(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
end;var
MyObj: TMyObject;procedure TMyObject.Rev(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
begin
//
end;//////
NMUDP1.OnDataReceived := MyObj.Rev;
TMyObject = class
procedure Rev(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
end;var
MyObj: TMyObject;procedure TMyObject.Rev(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
begin
//
end;//////
NMUDP1.OnDataReceived := MyObj.Rev;
begin
///////
//////
end;
nmupd1.ondatareceived:=myreceive;