delphi (двусвязный неупорядоченный список)

[Chudo4258]

поиск узлов с заданным значением(примерно знаю, но не могу написать

Type 
 List=^NODE; 
 Node=record 
  Info:Byte; 
  Next:List 
 End;

var S:List;
begin
// S - указатель на начало списка
 while S<>nil do
begin
  if S^.Info='ваше значение' then // выполняем нужное действие;
  S:=S^.Next;
end;