Tradutor de frases inglês > português - Delphi

Coloque um tedit, um tbutton e um tWebBrowser (paleta internet) no formulário. OtwebBrowser deve ficar oculto.

No evento onShow do formulário digite o seguinte código:

  webBrowser1.Navigate('http://www.google.com.br/language_tools?hl=pt-BR');

No evento onClick do tbutton digite o seguinte código:

  webBrowser1.OleObject.document.forms.item(1).elements.item('text').value := edit1.Text;
  webBrowser1.OleObject.document.forms.item(1).submit();
  button1.Enabled := false;

E para finalizar no evento onDocumentComplete do tWebBrowser digite o seguinte código:

  if webBrowser1.LocationURL <> 'http://www.google.com.br/language_tools?hl=pt-BR' then
  begin
    edit1.Text := webBrowser1.OleObject.document.all.result_box.innerText;
    webBrowser1.Navigate('http://www.google.com.br/language_tools?hl=pt-BR');
  end
  else
    button1.Enabled := true;

Como este tradutor vai utilizar o motor de tradução do google você deve estar CONECTADO NA INTERNET para funcionar.

Basta digitar uma frase em inglês no tedit e clicar no tbutton1 que em instantes ela será traduzida.