procedure TForm1.Button1Click(Sender: TObject);
var
jre_path:String='D:\Android Studio\jre\jre\bin';
emu_path:String='C:\Users\mali.aydin\AppData\Local\Android\Sdk\emulator\emulator.exe';
emu_name:String='Pixel_3a_API_29';
begin
ShellExecute(Application.handle, 'open', 'cmd.exe',
PChar('/c "cd '+jre_path+' && '+emu_path+' -netdelay none -netspeed full -avd '+emu_name+'" ' ), nil, SW_HIDE);
end;