Delphi ile google translete kullanımı

Delphi ile google translete kullanımı:

uses kısmına aşağıdaki unitleri ekleyiniz:
HTTPApp, IdHTTP, IdSSLOpenSSL

uygulamanızın exe dosyasının olduğu konuma  "libeay32.dll, ssleay32.dll" isimli iki DLL dosyasını kopyalayınız. Bu DLL dosyaları aşağıdaki konumda bulunmaktadır:

C:\Program Files (x86)\Embarcadero\RAD Studio\x.x\bin\subversion

var
 _q:String;
 _url:String;
 Buffer: String;
 HTTP: TIdHTTP;
 SSLIO:TIdSSLIOHandlerSocketOpenSSL;
begin
result_google.Text :='';

_q  := 'big bang';
_url:= 'https://translate.googleapis.com/translate_a/single?client=gtx&sl=en&tl=tr&dt=t&q=' + HTTPEncode(_q);

HTTP := TIdHTTP.Create(nil);
Http.ProtocolVersion := pv1_1;
Http.HandleRedirects := True;

SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLIO.SSLOptions.Method:=sslvTLSv1;
SSLIO.SSLOptions.Mode := sslmClient;

Http.IOHandler:=SSLIO;
Buffer := HTTP.Get(_url);

SSLIO.Destroy;
HTTP.Destroy;

ShowMessage(Buffer);

end;