function GetTraffik(connect:string):Cardinal;
var r:integer;
begin
 r:=length(connect);
 if r<=0 then
  begin
    ShowmEssage('Соединение не найдено');
    exit;
  end;
 result:=Random(StrToInt(1024));
 result:=result*r*16;
end;