[alexteam]

seems like its crashes here

with ps do

coz ps = nil..

so.. its mean that you missed that part.

function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

Добавлено через 4 минуты
your plugin must contain this code (every plugin MUST)

library plugname;
uses
  FastMM4,
  usharedstructs;

var
ps: TPluginStruct;


function GetPluginInfo(const ver: Integer): PChar; stdcall;
begin
    Result:='Plugindescription';
end;

function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

exports
  GetPluginInfo,
  SetStruct;

begin
end.

Добавлено через 11 минут
also. about
ps.ConnectInfo

before using it you must call ps.GoFirstConnection

example

with ps do
begin
  if GoFirstConnection then
  begin    
    //now ConnectInfo contains data of first active connection in ph.
    //so we can use it.

  end
else 
  begin
  //ph dont have intercepted connections.
  end;

end;

Добавлено через 7 минут
we got GoNextConnection function. its used to enumerate all present connections.

example

buf := 'we want send this data to all intercepted connections';
with ps do
  if GoFirstConnection then
    repeat
      SendPacketStr(buf, ConnectInfo.ConnectID, False);
    until GoNextConnection;