Проблемы с удалением элемента в списке

[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.

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

[s-andriano]

Это Ваша программа?
Подозреваю, что - нет, т.к. в ней специально удаляется весь список.

Попытайтесь расписать, что делает каждая строчка программы, тогда быстро найдете место, которое нужно удалить.