Как сделать в Delphi перевод языков

[Илюха]

Здравствуйте! Как мне сделать что бы при нажатии на на батон всё переводилось например на английский и наобород!

[Квэнди]

"Все" это что ?

[Alex21]

 
procedure TForm1.Button1Click(Sender: TObject);
 var
 Layout: array[0.. KL_NAMELENGTH] of char;
begin
 LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);  {rus}
end;
procedure TForm1.Button2Click(Sender: TObject);
var
 Layout: array[0.. KL_NAMELENGTH] of char;
begin
 LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);  {eng}
end;

[mihali4]

Как мне сделать что бы при нажатии на на батон всё переводилось например на английский и наобороТ!

"НаобороД" слишком похоже на "бутерброд"...
Пихаем все русские капшены в файл *.ru, а английские - в файл *.en.
Делаем в меню "Выбор языка" и перерисовываем капшены в зависимости от выбранного языка... Что трудного-то?