Список. Удаление елемента

[JonnyFletcher]

procedure TForm1.Button3Click(Sender: TObject);
var  q,q1:integer;
s,a:Tvsp;
begin
q:=StrToInt(Edit2.text);
q1:=StrToInt(Edit3.text);
s:=L;
while s<>nil do //begin
if s^.dsp=q1 then begin
//s:=s^.vsp;
DeleteEl(s,q);
s:=s^.vsp;
end
else s:=s^.vsp;

a:=L;
memo1.Lines.Clear;
 while a<>nil do begin
 Memo1.lines.Delete(integer(a^.dsp));
 a:=a^.vsp;
 end;
 end;
end.

надо после определенного элемента удалить следующий, а удаляется весь список. Помогите пожалуйста.