Delphi заготовки

стандартное окно. пример редактора \delphi\demos\RichEdit

пишем скрипт на Дельфи для получения текста из всех элементов окон

mainform.Editor.Lines.Add('----------названия кнопок меню-------------------');
for X:=0 to mainform.ComponentCount-1 do begin
if mainform.Components[x].ClassType=TMenuItem then
      mainform.Editor.Lines.Add(mainform.Components[x].Name+'='+#39

+deletesim(TMenuItem(mainform.Components[x]).Caption)+#39);
   end;
   mainform.Editor.Lines.Add('----------кнопки меню подсказки-------------------');
   for X:=0 to mainform.ComponentCount-1 do begin
      if mainform.Components[x].ClassType=TMenuItem then
        mainform.Editor.Lines.Add(mainform.Components[x].Name+'='+#39+

deletesim(TMenuItem(mainform.Components[x]).Caption)+#39);
   end;
   mainform.Editor.Lines.Add('----------названия Иконки-------------------');
   for X:=0 to mainform.ComponentCount-1 do begin
      if mainform.Components[x].ClassType=TMenuItem then
        mainform.Editor.Lines.Add(mainform.Components[x].Name+'='+#39+

deletesim(TMenuItem(mainform.Components[x]).Caption)+#39);
   end;
   mainform.Editor.Lines.Add('----------Подсказки к иконки -------------------');
   for X:=0 to mainform.ComponentCount-1 do begin
      if mainform.Components[x].ClassType=TMenuItem then
        mainform.Editor.Lines.Add(mainform.Components[x].Name+'='+#39+

deletesim(TMenuItem(mainform.Components[x]).Caption)+#39);
   end;

получаем текст

----------названия кнопок меню-------------------
FileMenu='File'
FileNewItem='New'
FileOpenItem='Open...'
FileSaveItem='Save'
FileSaveAsItem='Save As...'
N1='-'
FilePrintItem='Print'
N4='-'
FileExitItem='Exit'
EditMenu='Edit'
EditUndoItem='Undo'
N2='-'
EditCutItem='Cut'
EditCopyItem='Copy'
EditPasteItem='Paste'
N5='-'
miEditFont='Font...'
HelpMenu='Help'
HelpAboutItem='About...'
----------кнопки меню подсказки-------------------
FileMenu='File'
FileNewItem='New'
FileOpenItem='Open...'

переводим его в Google либо в другом переводчике 

исходная функция для перевода программы демо (Delphi&RichEdit) на русский язык

 http://netsoftware.ucoz.ru/1.rtf