translate const delphi 7 gnugettext -

i have constants such code below. need translate them , have tried _() don't work. in advance.

const system_name    = 'system name';   business_name    = 'business name'; 

if need handle constants, have translated, declare them resourcestring:

resourcestring    system_name = 'system name';   business_name = 'business name'; 

dxgettext handles these without tweaking.