Te falta una coma en la siguiente línea que provoca precisamente ese error:
Código:
BitBlt(Result->Canvas->Handle, 0,0, Result->Width, Result->Height, DC, 0,0 SRCCOPY);
^
|
Si dentro de la función necesitas trabajar con ANSI, solo tienes que declarar como AnsiString "TextoToImgQRCode"
Lo digo por la línea donde veo que haces algo "raro" dentro de la función con "String". String es un typedef que según si en las propiedades del proyecto tienes "TCHAR" mapeado a "char" o a "wchar_t" se declara como AnsiString o UnicodeString respectivamente. De todas formas no debería ser necesario en teoría si en las opciones del proyecto esta mapeado para trabajar con o sin Unicode.
La salida de la función la tienes como "TBitmap" y debería ser "Graphics::TBitmap*", y te falta añadir un "return Result;" al final de la función. Aunque con lo de la coma supongo que ya te habrías dado cuenta. Que una coma o un punto y coma puede volver loco a cualquiera cuando lleva muchas horas.. ;-)