Кружок нубов(Вопрос-Ответ)

[PanAm]

T][P,

Const
  BotName = 'Имя бота';
  Password = '2356';

var
  MasterID : integer;   //ID хозяина
  MasterName : string;  //Гик хохяина
  Command :string;      //Команда
  i : integer;
  Name : string;

begin
  if FromServer and  (ConnectName=BotName) and (pck[1]=#$4A) then begin
    i :=10;  //Устанавливаем смещение до ника
    Name :=ReadS(i); //Сохраняем ник
    Command :=ReadS(i);   //Считываем текст
    if Command=Password then begin  //если это пароль
      MasterID :=ReadD(2);  //Сохраняем ID написавшего
      MasterName := Name;   //и его ник
    end;
  end;
end.

Добавлено через 3 минуты

Сообщение от T][P

А ещё если допустим ник присвоить name:=Reads(10) как заделать так чтобы следующее присваивание было после Reads(10) то есть присваивало следующий байт.

как в примере - надо использовать переменную, функция ReadS увеличит ее на длину строки

i :=10;  
    Name :=ReadS(i); 
    Command :=ReadS(i);

Добавлено через 18 минут
T][P,
buf:=Hstr('46'); лучше buf:=#$46;
не знаю как это будет работать, но иожно попробывать сразу слать и клиенту 7E=LogOutOk: