Procedure SetRus;
var smenu:string;
    smenuHint:string;
    SToolButton:string;
    SToolButtonHint:string;
    List:TstringList;
begin

smenu:='FileMenu='+#39+'Ôàéë'+#39+''+#13+#10+
'FileNewItem='+#39+'Íîâûé'+#39+''+#13+#10+
'FileOpenItem='+#39+'Îòêðûòèå ...'+#39+''+#13+#10+
'FileSaveItem='+#39+'Ñîõðàíèòü'+#39+''+#13+#10+
'FileSaveAsItem='+#39+'Ñîõðàíèòü êàê ...'+#39+''+#13+#10+
'N1='+#39+'-'+#39+''+#13+#10+
'FilePrintItem='+#39+'Ïå÷àòü'+#39+''+#13+#10+
'N4='+#39+'-'+#39+''+#13+#10+
'FileExitItem='+#39+'Âûõîä'+#39+''+#13+#10+
'EditMenu='+#39+'Ðåäàêòèðîâàòü'+#39+''+#13+#10+
'EditUndoItem='+#39+'Îòìåíèòü'+#39+''+#13+#10+
'N2='+#39+'-'+#39+''+#13+#10+
'EditCutItem='+#39+'Âûðåçàòü'+#39+''+#13+#10+
'EditCopyItem='+#39+'Ñêîïèðóéòå'+#39+''+#13+#10+
'EditPasteItem='+#39+'Âñòàâëÿòü'+#39+''+#13+#10+
'N5='+#39+'-'+#39+''+#13+#10+
'miEditFont='+#39+'Øðèôò ...'+#39+''+#13+#10+
'HelpMenu='+#39+'Ïîìîùü'+#39+''+#13+#10+
'HelpAboutItem='+#39+'Î ïðîãðàììå ...'+#39+''+#13+#10;

SToolButton:='ToolButton1= '+#39+'Íîâûé'+#39+''+#13+#10+
'OpenButton= "Îòêðûòü ..."'+#13+#10+
'SaveButton= "Ñîõðàíèòü"'+#13+#10+
'PrintButton= "Ïå÷àòü"'+#13+#10+
'ToolButton5='+#39+''+#39+''+#13+#10+
'CutButton= "Âûðåçàòü"'+#13+#10+
'CopyButton= "Êîïèðîâàòü"'+#13+#10+
'PasteButton= "Âñòàâèòü"'+#13+#10+
'UndoButton= '+#39+'Îòìåíà'+#39+''+#13+#10+
'ToolButton10='+#39+''+#39+''+#13+#10+
'ToolButton11='+#39+''+#39+''+#13+#10+
'ToolButton2= '+#39+'ToolButton2 "'+#13+#10+
'BoldButton='+#39+''+#39+''+#13+#10+
'ItalicButton='+#39+''+#39+''+#13+#10+
'UnderlineButton='+#39+''+#39+''+#13+#10+
'ToolButton16='+#39+''+#39+''+#13+#10+
'LeftAlign='+#39+''+#39+''+#13+#10+
'CenterAlign='+#39+''+#39+''+#13+#10+
'RightAlign='+#39+''+#39+''+#13+#10+
'ToolButton20='+#39+''+#39+''+#13+#10+
'BulletsButton='+#39+''+#39+'';

SToolButtonHint:='ToolButton1= '+#39+'Ñîçäàòü íîâûé ôàéë "'+#13+#10+
'OpenButton= "Îòêðûòü ñóùåñòâóþùèé ôàéë"'+#13+#10+
'SaveButton= "Ñîõðàíèòü òåêóùèé ôàéë"'+#13+#10+
'PrintButton= "Ïå÷àòü òåêóùåãî ôàéëà"'+#13+#10+
'ToolButton5='+#39+''+#39+''+#13+#10+
'CutButton= '+#39+'Óäàëèòü âûáðàííûå ýëåìåíòû "'+#13+#10+
'CopyButton= "Êîïèðîâàòü âûäåëåííûé ýëåìåíò â áóôåð îáìåíà"'+#13+#10+
'PasteButton= '+#39+'Âñòàâèòü ñîäåðæèìîå áóôåðà îáìåíà "'+#13+#10+
'UndoButton= "Îòìåíèòü ïîñëåäíåå äåéñòâèå"'+#13+#10+
'ToolButton10='+#39+''+#39+''+#13+#10+
'ToolButton11='+#39+''+#39+''+#13+#10+
'ToolButton2='+#39+''+#39+''+#13+#10+
'BoldButton= '+#39+'Æèðíûé'+#39+''+#13+#10+
'ItalicButton= '+#39+'Êóðñèâ'+#39+''+#13+#10+
'UnderlineButton= '+#39+'Ïîä÷åðêíóòûé'+#39+''+#13+#10+
'ToolButton16='+#39+''+#39+''+#13+#10+
'LeftAlign= '+#39+'Ïî ëåâîìó êðàþ "'+#13+#10+
'CenterAlign= '+#39+'Öåíòð'+#39+''+#13+#10+
'RightAlign= '+#39+'Ïî ïðàâîìó êðàþ "'+#13+#10+
'ToolButton20='+#39+''+#39+''+#13+#10+
'BulletsButton= '+#39+'Íà÷àòü ñïèñîê | Âîéòè â ðåæèì ñïèñêà "';

smenuHint:='FileMenu='+#39+''+#39+''+#13+#10+
'FileNewItem= '+#39+'Ñîçäàòü íîâûé ôàéë "'+#13+#10+
'FileOpenItem= "Îòêðûòü ñóùåñòâóþùèé ôàéë"'+#13+#10+
'FileSaveItem= "Ñîõðàíèòü òåêóùèé ôàéë"'+#13+#10+
'FileSaveAsItem= "Ñîõðàíèòü òåêóùèé ôàéë ïîä íîâûì èìåíåì"'+#13+#10+
'N1='+#39+''+#39+''+#13+#10+
'FilePrintItem= "Ïå÷àòü òåêóùåãî ôàéëà"'+#13+#10+
'N4='+#39+''+#39+''+#13+#10+
'FileExitItem= '+#39+'Âûõîä ýòîãî ïðèëîæåíèÿ'+#13+#10+
'EditMenu='+#39+''+#39+''+#13+#10+
'EditUndoItem= "Îòìåíèòü ïîñëåäíåå äåéñòâèå"'+#13+#10+
'N2='+#39+''+#39+''+#13+#10+
'EditCutItem= '+#39+'Óäàëèòü âûáðàííûå ýëåìåíòû "'+#13+#10+
'EditCopyItem= "Êîïèðîâàòü âûäåëåííûé ýëåìåíò â áóôåð îáìåíà"'+#13+#10+
'EditPasteItem= '+#39+'Âñòàâèòü ñîäåðæèìîå áóôåðà îáìåíà "'+#13+#10+
'N5='+#39+''+#39+''+#13+#10+
'miEditFont='+#39+''+#39+''+#13+#10+
'HelpMenu='+#39+''+#39+''+#13+#10+
'HelpAboutItem= '+#39+'Ïîêàçàòü èíôîðìàöèþ î ïðîãðàììå "';

    List:=TstringList.Create;
    // çàãðóçêà ìåíþ
    List.Text:=smenu;
    for x:=0 to List.Count-1 do begin
    if MainForm.FindComponent(List.Names[x]).ClassType=TMenuItem then
       TMenuItem(MainForm.FindComponent(List.Names[x])).Caption:=deletesim(List.ValueFromIndex[x]);
    end;

    // çàãðóçêó Òîîëñà
    List.Text:=SToolButton;
    for x:=0 to List.Count-1 do begin
    if MainForm.FindComponent(List.Names[x]).ClassType=TToolButton then
       TToolButton(MainForm.FindComponent(List.Names[x])).Caption:=deletesim(List.ValueFromIndex[x]);
    end;
    List.Text:=SToolButtonHint;
    for x:=0 to List.Count-1 do begin
    if MainForm.FindComponent(List.Names[x]).ClassType=TToolButton then
       TToolButton(MainForm.FindComponent(List.Names[x])).Hint:=deletesim(List.ValueFromIndex[x]);
    end;
    List.Text:=smenuHint;
    for x:=0 to List.Count-1 do begin
    if MainForm.FindComponent(List.Names[x]).ClassType=TMenuItem then
       TMenuItem(MainForm.FindComponent(List.Names[x])).Hint:=deletesim(List.ValueFromIndex[x]);
    end;
    list.free;
end;