procedure ChangeOrientation(NewOrientation:DWORD);
var
  dm      : TDeviceMode;
  dwTemp  : DWORD;
  dmDisplayOrientation : DWORD;
begin
   ZeroMemory(@dm, sizeof(dm));
   dm.dmSize   := sizeof(dm);
   if EnumDisplaySettings(nil, DWORD(ENUM_CURRENT_SETTINGS), dm) then
   begin
      Move(dm.dmScale,dmDisplayOrientation,SizeOf(dmDisplayOrientation));
      // swap width and height
      if Odd(dmDisplayOrientation)<>Odd(NewOrientation) then
      begin
       dwTemp := dm.dmPelsHeight;
       dm.dmPelsHeight:= dm.dmPelsWidth;
       dm.dmPelsWidth := dwTemp;
      end;

      if dmDisplayOrientation<>NewOrientation then
      begin
        Move(NewOrientation,dm.dmScale,SizeOf(NewOrientation));
        if (ChangeDisplaySettings(dm, 0)<>DISP_CHANGE_SUCCESSFUL) then
         RaiseLastOSError;
      end;
   end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  i, WidthShift: Integer;
  str, delim: string;
  Font: TFont;
  Colors: TArray<TColor>;

begin
  Font := TFont.Create;
  Colors := TArray<TColor>.Create(clRed, clBlack, clGreen);
  WidthShift := 10;

  if FontDialog1.Execute then
  begin
    Font.Assign(FontDialog1.Font);
  end;

  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.FillRect(Image1.Canvas.ClipRect);

  Image1.Canvas.Font.Assign(Font);
  delim := '/';

  for i := 0 to 2 do
  begin
    str := '0';
    if i <> 0 then
      str := delim + str;
    Image1.Canvas.Font.Color := Colors;
    Image1.Canvas.TextOut(WidthShift, 100, str);
    WidthShift := WidthShift + Image1.Canvas.TextWidth(str);
  end;
  Font.Free;
end;

const
  URL = 'https://.com/translate/translate.php?source=ru&target=en&text=привет';
var

  HTTPs: THTTPSend;
    res: TStringList;
    JS:ISuperObject;
begin
      HTTPs := THTTPSend.Create;
    res := TStringList.Create;


    HTTPs.Headers.Clear;
    if not HTTPs.HTTPMethod('GET', URL) then
      showmessage('internet connection: error') else
      begin
           res.LoadFromStream(HTTPs.Document);


           JS:=SO(res.text);
           Clipboard.AsText :=Utf8ToAnsi(RawByteString(res.Text));
           ShowMessage(res.text);
      end;
end;

WebBrowser1.Navigate(ComboBox1.Text);

var
  TabSheet: TTabSheet;
  WebBrowser : TWebBrowser ;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'New Tab Sheet';
  TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;

MediaPlayer1.FileName := 'sound.mp3';

  if MediaPlayer1.Media <> nil then
  begin
      MediaPlayer1.Play;
end;