[Bargest]

Код не читал, но очень похоже, что запрос проходит в широких строках (aka WideString). В делфи начиная с N-ной версии (N~9) String стало синонимом WideString. Попробуйте использовать AnsiString.