[[coso]]

Hola, no se si funcionara, pero puedes intentar buscar la cadena con el caracter #0 al final.

Código Delphi [-]

function Cadena_al_final(s,r : string): boolean;
begin
     result := Pos(s + #0,r) <> 0;
end;

saludos. A ver si funciona.