[Lolshto?]

var
  Names: TStrings;   
  Timerbuf: TTimer;

procedure Init; 
begin 
  Timerbuf:=TTimer.Create(nil);
  Timerbuf.OnTimer:=@OnTimerbuf;
  Timerbuf.enabled:=false;
  Timerbuf.interval:=10000;
  
  Names := TStringList.Create;
  Names.LoadFromFile('D:\names.txt');
end;

function CheckName(n: string) : Boolean;
begin
  Result := False;
  if (Names.IndexOf(n) > -1) then Result := True;
end;

procedure OnTimerbuf(Sender: TObject);
begin
   buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00');
    SendToServer;
end;
procedure Free;
begin
  Timerbuf.free;
  end;
 begin
if FromClient and (pck=hstr('6D 00 00 00 00')) then 
begin
       buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00'); 
     SendToServer;
\\Вот тут нужна задержка.
    Timerbuf.enabled:=true; 
    buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 74 00 65 00 6C 00 65 00 20 00 67 00 6F 00 74 00 6F 00 20 00 32 00 39 00 35 00 33 00 00 00 ');
    SendToServer;
    end;
    end.

Неполучается...уже всякими способами перепробовал.