Удаление элемента списка по индексу. Help прошу, пожалуйста

unit UList;
 
interface
uses UElem,SysUtils;
type
 TList = class
 private
    head,tail: TElem;
    Fsize:integer;
 public
   constructor Create;
   function gethead:Telem;
   function isEmpty:boolean;
   procedure AddEl(el:Telem);
   procedure Delete(index:integer);
   procedure Clear;
   destructor Destroy; override;
   property Size:integer read Fsize write Fsize;
  end;
 
implementation
 
constructor TList.Create;
begin
  head:=nil;      // инициализация списка
end;
 
function TList.gethead:Telem;
begin
 result:=head;
end;
 
procedure TList.AddEl(el:TElem);
begin
 if head=nil then
  begin
   head:=el;
   tail:=el;
  end
 else
  begin
   tail.SetRight(el);
   El.SetLeft(tail);
   tail:=el;
  end;
  inc(Fsize);
end;
 
function TList.isEmpty:boolean;
begin
  result:=head=nil;
end;
 
procedure TList.Delete(index:integer);
var
  i:integer;
  item:TElem;
begin
  if (Index < 0) or (Index > Fsize) then
    raise Exception.Create('index out of range');
 
  if Index < Fsize then
    begin
      for i:= index to Fsize-1  do
      begin
        item:=item.getright;
      end;
      Dec(Fsize);
      end;
      
  if index=Fsize then
    begin
      Dec(Fsize);
      item.destroy;
    end;
end;
 
procedure TList.Clear;
var cur,save:TElem;
begin
  cur:=head;
  while cur<>nil do
  begin
    save:=cur.getright;
    cur.destroy;
    cur:=save;
  end;
  head:=nil;
  tail:=nil;
  Fsize:=0;
end;
 
destructor TList.Destroy;
begin
  Clear;
  inherited Destroy;
end;
end.