Procedure TCandidateList.EditCandidate(Candidate: TCandidate);
var
    TempList : PCandidateList;
begin
    // Присвоить голову
    TempList := Self.Head;

    // Пока текущий узел не равен NIL
    while TempList <> NIL do
    begin
        // Если ID текущего кандидата равно ID переданному кандидату
        if TempList.Candidate.IdCandidate = Candidate.IdCandidate then
        begin
            // Присвоить текущему узлу параметр переданного кандидата
            TempList.Candidate := Candidate;
            // Выйти из цикла
            break;
        end;
        // Перейти к следующему узлу
        TempList := TempList^.Next;
    end;
end;