[supernewbie]

const
name = 'Destroer'; 
var
Timer01:TTimer;
MyPck:string; //блеать 1

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1000;
end;

procedure Free;
begin
Timer01.destroy;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=MyPck; //блеать 2
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name)  then
begin
MyPck:=pck; //блеать 3
Timer01.enabled:=true;
end;

if FromServer and (pck[1]=#$EA) and (ConnectName=name) then Timer01.enabled:=false;
end.