Дельфи. Списки.

[Broken Angel]

Подскажите, как мне вставить элемент после I элемента в список (1<I<N)? I берется из эдита. Сам список линейный двунаправленный.
Я сделала вставку для случая N=1 и I=N (вставка в конец списка).
Вот что у меня есть (объявление, вставка и функция подсчета числа элементов).

type
    EL=^ZAP;
    ZAP=RECORD
         INF1:STRING;
         INF2:INTEGER;
         S:STRING;
         NEXT:EL;
         PREV:EL;
      END;
var
   FIRST, LAST,
   P,Q,T:EL;

procedure TForm2.Button3Click(Sender: TObject);
begin
NEW(P);
P^.S:=P^.INF1+INTTOSTR(P^.INF2);
P^.NEXT:=NIL;
IF (FIRST=NIL) AND (LAST=NIL)
THEN BEGIN
          FIRST:=P;
          FIRST^.PREV:=NIL;
        END;
ELSE BEGIN
          LAST^.NEXT:=P;
          P^.PREV:=LAST;
       END;
LAST:=P;
END;

function COUNT_EL(FIRST:EL):INTEGER;
var
   K:INTEGER;
   Q:EL;
BEGIN
   IF FIRST=NIL
   THEN K:=0
   ELSE BEGIN
          K:=1;
          Q:=FIRST;
          WHILE (Q<>NIL) DO
           BEGIN
            K:=K+1;
            Q:=Q^.NEXT;
           END;
        END;
    COUNT_EL:=K;
END;