[icWasya]

Явно такого нет. Но можно сделать чуть побольше кода в одном месте, что бы в остальных писать поменьше. Например так сделан TRect.
И тапы по-дельфийски надо называть в буквы T.

Код:

type
  TAI = record 
    pos: integer;
    index: integer;
  end;

function AI(Pos:Integer; Index:Integer):TAI;// добавляем вот такую функцию

...
implementation
function AI( Pos:Integer; Index:Integer):TAI;
begin // а здесь реализация
  Result.pos := Pos;
  Result.index:=Index;
end;

....

ну и потом

Код:

  timer(AI(1,0))