AnsiString使わないでstd::string使ってるの?
VCLに渡す時に一次オブジェクト生成するから時間かかっちゃうよ?