[alexteam]

начал разгребать обработку функций.. честно.. просто копипастнул ее с 83го рева когда делал...
но сейчас сижу, думаю над вот этим местом

if sMethodName = 'WRITES' then begin
    buf:=TfsScript(Integer(Params[1])).Variables['buf'];
    tmp:=Params[0];
    temp:=tmp;//StringToWideString(tmp,1251);
    tmp:=tmp+tmp;
    Move(temp[1],tmp[1],Length(tmp));

    buf:=buf+tmp+#0#0;
    TfsScript(Integer(Params[1])).Variables['buf']:=buf;
  end

ведь равнозначно

procedure TscriptData.WriteS(v: string);
begin
  fbuff := fbuff + v + v + #0#0
end;

и вообще правилен ли изначальный вариант ? %)