procedure TForm1.Button2Click(Sender: TObject);
begin
if strtoint(edit1.text)=5 then
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit6.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit6.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit6.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit6.text,4,1)),SW_HIDE);
end;
if strtoint(edit1.text)=4 then
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 4 --key call.input --value '+copy(edit5.text,4,1)),SW_HIDE);
end;
if strtoint(edit1.text)=3 then
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);
end;
if strtoint(edit1.text)=2 then
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);
end;
if strtoint(edit1.text)=2 then
begin
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);
sleep(500);
WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);
end;
end;