Как добавить нужный язык в систему

Code:

procedure TTMKBD.OkClick(Sender: TObject);

var

reg: TRegistry;

srs, dst: string;

begin

Reg := TRegistry.Create;

with Reg do

try

   RootKey := HKEY_LOCAL_MACHINE;

   OpenKey('\System\CurrentControlSet\Control\keyboard layouts\00000405', True);

   WriteString('layout file', 'Turkmen.kbd');

   WriteString('layout text', 'Turkmen');

   OpenKey('\System\CurrentControlSet\Control\Nls\Locale', True);

   WriteString('00000405', 'Turkmen');

   CloseKey;

finally

   Free;

end;

srs := 'Turkmen.kbd';

dst := 'c:\windows\system\Turkmen.kbd';

Filecopy(srs, dst);

showmessage('Well Done it all');

close;

end;