Обработка клавиш Ctrl+A и Alt+7

[bananchik007]

Сделал обработку на клавиши F1 и F4

  59:                  {        F1 }
      if Thread[2] <> Active then begin
        z := '';
        for i := 0 to 7 do
          z := z + Scr[yTime, xTime + i].Symbol;
        Print('        ', xTime, yTime, 114);
        if (xTime = 2) and (yTime = 2) then
          xTime := 72
        else if (xTime = 72) and (yTime = 2) then
          yTime := 24
        else if (xTime = 72) and (yTime = 24) then
          xTime := 2
        else
          yTime := 2;
        Print(z, xTime, yTime, 30);
      end;
    62: if Thread[1] <> Active then begin            {        F4 }
          if y = 1 then begin
            ys := 1;
            yd := 25;
            y := 25;
          end
          else begin
            ys := 25;
            yd := 1;
            y := 1;
          end;
          for x := 1 to 80 do begin
            Scr[yd, x] := Scr[ys, x];
            Scr[ys, x].Symbol := ' ';
            Scr[ys, x].Attr := 0;
          end;
        end;
  end

Но сколько не искал коды сочетаний не могу найти нужное, помогите пожалуйста.
Во вложении полный код программы.