вставка символов

[supernewbie]

Суть. Скрипт должен читать тот текст что я отправляю в чат и перед каждым символом ставить 08 00.

Пытался сам, не получилось как всегда

var
lengthtext,i,o:integer;
text:string;

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
begin
if FromClient and (pck[1]=#$49) then 
begin
text:=ReadS(2);
lengthtext:=(length(ReadS(2)) * 2 + 2);
pck:='';
buf:=#$49;
WriteS(text);
for i:=2 to lengthtext do
if i=o+2 then
begin
WriteH(8,i+2);
o:=i;
end;
end;
WriteD(0);
SendToServer;
end;

end.

Добавлено через 11 минут
алеееееекс (