procedure SendStream(Stream:PStream;index:integer);
function ReadString(const Stream: PStream): string;
var
 n: LongInt;
begin
 Stream.Read(n, SizeOf(n));
 SetLength(Result, n);
 if n > 0 then Stream.Read(Result[1], n);
end;
var
str:string;
Begin
 if Server.Connection[index].Online then
  begin
   str:=ReadString(Stream);
   Server.Connection[index].send(str[1],length(str));
  end;
end;