uses scodes;
var
cmd1,cmd2,key:integer;
begin
cmd1 := get_rightsoftkeycode;
cmd2 := get_leftsoftkeycode;
repeat
key:=getkeyclicked;
if key=cmd2 then //òðåáóåìîå äåéñòâèå ëåâ.êíîïêà
until key=cmd1;//âûõîä ïî íàæàòèè ïðàâ. Êíîïêè
end.