{ =======POTOK========= }
type
  POTOK = class(TThread)
  private

  public
    { Private declarations }
  protected
    procedure Execute; override;
    procedure SYNC;
  end;

  { =======POTOK========= }
var
  Form2: TForm2;
  Ptk: POTOK;

implementation

{$R *.dfm}

procedure TForm2.sSpeedButton1Click(Sender: TObject);
begin
  sMemo1.Clear;
  sMemo1.Lines.Add('import asyncio');
  sMemo1.Lines.Add('import pyppeteer  # $ pip install pyppeteer');
  sMemo1.Lines.Add('');
  sMemo1.Lines.Add('async def main():');
  sMemo1.Lines.Add('    browser = await pyppeteer.launch()');
  sMemo1.Lines.Add('    page = await browser.newPage()');
  sMemo1.Lines.Add('    await page.goto(''' + sEdit1.Text + ''')');
  sMemo1.Lines.Add('    await page.setViewport(dict(width=1024, height=768))');
  sMemo1.Lines.Add('    await page.screenshot(path=''' + sEdit2.Text + ''', fullPage=False)');
  sMemo1.Lines.Add('    await browser.close()');
  sMemo1.Lines.Add('');
  sMemo1.Lines.Add('asyncio.get_event_loop().run_until_complete(main())');

  { POTOK }
  Ptk := POTOK.Create(True);
  Ptk.FreeOnTerminate := True;
  Ptk.Priority := tpNormal;
  Ptk.Resume;
end;

{ POTOK }
procedure POTOK.Execute;
begin
  inherited;
  Synchronize(SYNC);
end;

procedure POTOK.SYNC;
begin

  Form2.PythonEngine1.ExecStrings(Form2.sMemo1.Lines);

end;

  { =======POTOK========= }
type
  POTOK = class(TThread)
  private
    TS: TStringList;
    PY: TPythonEngine;
  public

    { Private declarations }
  protected
    procedure Execute; override;

  end;


var
  Form2: TForm2;
  Ptk: POTOK;  { =======POTOK========= }

implementation

{$R *.dfm}

procedure TForm2.sSpeedButton1Click(Sender: TObject);
begin
  Ptk := POTOK.Create(True);
  Ptk.FreeOnTerminate := True;
  Ptk.Priority := tpNormal;
  Ptk.Resume;
end;

{ POTOK }
procedure POTOK.Execute;

begin
  inherited;
  TS := TStringList.Create;
  PY := TPythonEngine.Create(nil);
  try
    TS.Clear;
    TS.Add('import asyncio');
    TS.Add('import pyppeteer  # $ pip install pyppeteer');
    TS.Add('');
    TS.Add('async def main():');
    TS.Add('    browser = await pyppeteer.launch()');
    TS.Add('    page = await browser.newPage()');
    TS.Add('    await page.goto(''' + 'https://google.ru' + ''')');
    TS.Add('    await page.setViewport(dict(width=1024, height=768))');
    TS.Add('    await page.screenshot(path=''' + 'c:/qbove.jpg' + ''', fullPage=False)');
    TS.Add('    await browser.close()');
    TS.Add('');
    TS.Add('asyncio.get_event_loop().run_until_complete(main())');
    PY.ExecStrings(TS);
  finally
    FreeAndNil(TS);
    FreeAndNil(PY);
  end;
end;