[xkor]

Name4Me, в демоплагине есть такая функция:

function CntByName(nm: string): Byte;
var
  i: Integer;
begin
  Result:=0;
  for i:=0 to ps.ThreadsCount-1 do if ps.Threads[i].Name=nm then begin
    Result:=i;
    Exit;
  end;
end;

она по имени соединения определяет его номер, ну а то что ты просиш вот: ps.Threads[номер_соединения].Name