[Nickers]

begin
  if  then
    begin
      buf:=
      sendtoserver;
    end;
end.

Я б мог ток не знаю мой пример буит работать?)))
Я таких не делал никогда...