[Alegun]

Оффтоп: Пора уж и научиться пользовать тег [СODE]..[/СODE] для оформления кода, а то и до бани недолго так

"Формула" если правильно понял, может быть такой

Код:

var
 KeyPressed, i, b: integer;
 Keys, s: string;
begin
 KeyPressed:= 10;
 Keys:= 'ABCD';
 s:= '';
 b:= 1;
 for i := 0 to KeyPressed do
  begin
   s:= s + Keys[b];
   Inc(b);
   if b > Length(Keys) then b:= 1;
  end;
 SendKeys(s);
end;