Нужна помощь с миксером

[=White_Wolf=]

Ну короче попытался написать миксер для ДО вот что получилось

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_NUMPAD5, 0, 0, 0);
Sleep(2000);
keybd_event(VK_NUMPAD5, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_NUMPAD4, 0, 0, 0);
Sleep(3500);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec(PANsiChar('TASKKILL /F /IM mixer.exe'), SW_HIDE);
end;
end.


Остались вопросы
Я пытаюсь сделать миксер на кнопки 4 и 5 (на которых у меня белка и рсб),
Как сделать так чтобы пользователь сам вводил желаемые кнопки для микса?
Как сделать бесконечное повторение процессов?

[Буянь]

repeat //повторяй
{блок кода}
until //до тех пор, пока не..
{пока не будет нажата кнопка, допустим F13}
*

[=White_Wolf=]

repeat //повторяй
{блок кода}
until //до тех пор, пока не..
{пока не будет нажата кнопка, допустим F13}
*

[Error] Unit1.pas(35): Declaration expected but 'REPEAT' found


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($64)<>0 then
end;


repeat //ïîâòîðÿé
{procedure TForm1.Timer1Timer(Sender: TObject);
begin
Sleep(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
{begin
keybd_event(VK_NUMPAD5, 0, 0, 0); // íàæàòèå
Sleep(2000);
keybd_event(VK_NUMPAD5, 0, KEYEVENTF_KEYUP, 0); // îòïóñêàíèå
keybd_event(VK_NUMPAD4, 0, 0, 0); // íàæàòèå
Sleep(3500)
end;}
until
{f12}

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec(PANsiChar('TASKKILL /F /IM mixer.exe'), SW_HIDE);
end;

end.

[Рэйзор]

Учебник по паскалю для начала стоит почитать, как можно пытаться писать что-либо, не зная простейших базовых конструкций языка (begin .. end)

[=White_Wolf=]

Учебник по паскалю для начала стоит почитать, как можно пытаться писать что-либо, не зная простейших базовых конструкций языка (begin .. end)

что в коде неправильно?

[Рэйзор]

что в коде неправильно?

это не код.
я тку только в одно, дальше - учить паскаль.

каким мистическим образом repeat until без условия без содержания оказался в implementation вне процедуры?!