hola,
el ejemplo funciona perfectamente. El anterior logre que funcionara comentando la linea:
Código Delphi
[-]System.SetTextBuf(source, buffer);
luego cambie las variables buffer y quedo como:
Código Delphi
[-]System.SetTextBuf(target, buffer1);
...
System.SetTextBuf(source, buffer2);
ya todo OK. 23 segundos y todo OK.
gracias
A