[Igor22]

Здраствуйте,
есть процедура с добавлением элементов в последний раздел(как в очереди),нужно переделать немного код так что бы можно было добавлять в любой раздел(как в списке),заранее спасибо:

Код:

procedure TForm1.btnAddNewsClick(Sender: TObject);
var
  _News: TNews;
  pos:integer;
  dt: TDateTime;
begin
  try
     dt:=StrToDate(edtAddDateNumber.Text);
   except
     ShowMessage('-------------------- ');
     exit;
   end;
 if (edtAddTitleName.Text='') or (edtAddDateNumber.Text='') then ShowMessage('Iaiaoiaeii caiieieou ana iiey')
  else if ObjNewsAgency.GetCount = 0 Then ShowMessage('-------------')
  else
  begin
    _News := TNews.Create(edtAddTitleName.Text, StrToDate(edtAddDateNumber.Text));
        //тут
    if objNewsAgency.GetLast.AddNews(_News) then 
       begin
       pos:=lstSection.ItemIndex;
       ShowStructure;
       lstSection.ItemIndex:=pos;
       lstSection.OnClick(self)
       edtAddTitleName.Text:='';
       edtAddDateNumber.Text:='';
    end
    else ShowMessage('-----------');
  end;
end;