unit language; interface uses MainForm,PartnerDetailsForm,inifunctions,sysutils,Forms; procedure language_selected; implementation var NyTomb : array of string; var i: integer;