АТД: Реализация списка с использованием указателей

[Suslik963]

Добрый день. Помогите пожалуйста. Мне нужно вставить узел в указанную индексом позицию. Вот, что я уже нашел

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
LIST=^cell;
cell=record
element: integer;
next: List;
end;
position=List;
count:integer;

  type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure INS(x:integer; p:position; var L:List);
var
temp: position;
begin
temp:=p^.next;
New (p^.next); // Выделение памяти под ячейку
p^.next^.element:=x; // В нее записывается x
p^.next^.next:=temp;
inc(count);
end;

end.

Вопрос в том, как вызвать саму процедуру INS и передать ей позицию, которая должна быть написана в Edit'е???

[Z1000000]

Вызываешь обработчик события нажатия кнопки и
INS(StrToInt(Edit1.Text),...);