Гамильтоновы пути

[Voltr]

Язык Delphi7. Задача такова, что надо найти и вывести все гамильтоновы пути в заданном неориентированном графе(задается матрицей смежности). Написал функцию(код которой расположен ниже), но она выводит только 1 путь. Я понимаю как это должно делаться на словах/бумаге, но как это реализовать в коде не могу понять. Собственно вопрос. Можно ли как-то модернизировать эту функцию либо может как-то по другому реализовать кнопку(ниже функции) чтобы оно выводило все гамильтоновы пути?

//A - матрица смежности
//Mark - буленовский массив (false - точка посещена, true - не посещена)
//v - 1 точка
//w - последняя точка
//d - длинна графа (кол-во точек)
function TForm1.HamiltonPath (v, w, d:integer): boolean;
var i:integer;
begin
Result:=False;
  if (v = w) and (d = 1) then
  begin
  Result:=true;
  Label3.Caption:=Label3.Caption+inttostr(w);
  exit;
  end
  else
    begin
    Mark[v]:=false;
    for i:=1 to N do
    if (A[v,i]=1)  and (Mark[i]=true) then
      if HamiltonPath(i,w,d-1) then
        begin
        Result:=true;
        q[i]:=v;
        Label3.Caption:=inttostr(q[i])+'-'+Label3.Caption;
        exit;
        end
      else
        begin
        Result:=false;
        end;
    Mark[v]:=true;
    end;

end;

procedure TForm1.Button3Click(Sender: TObject);
  var i:Byte;
begin
  stop:=false;
  SetLength(q,n-1);
  for i:=0 to n-1 do q[i]:=0;
  Label3.Caption:='';
  for i:=1 to N do Mark[i]:=true;
  stop:=HamiltonPath(StrToInt(Edit1.Text),StrToInt(Edit2.Text),N);
  if stop=false then Label3.Caption:='Puti net'
end;