Нахождение эйлерова цикла, косяк

[vendigo]

Помогите найти ошибку, плиз..
Требуется найти эйлеров цикл в графе..Для простого графа
1--4
| |
2--3
выдает ерунду какую то 1-1-1-2
void __fastcall TForm1::Button2Click(TObject *Sender)
{
CStack *STEK = new CStack;
CStack *CE = new CStack;
int Begin = 1;
if(Begin)
{
STEK->Push(Begin);
while(STEK->Empty())
{ int V=STEK->Pop();
for(int i=1;i<=kolvo_ver;i++)
{
if(Form1->StringGrid1->Cells[V][i]==1) {

STEK->Push(V);
Form1->StringGrid1->Cells[V][i]=0;
Form1->StringGrid1->Cells[i][V]=0;
V=i; }
else
{ STEK->Push(V);
V=STEK->Pop();
CE->Push(V);

}

}

}
}
CE->Next();
Memo1->Text="Ýéëåðîâ öèêë: ";
for(int i = 0;i<kolvo_ver;i++)
{
AnsiString S = CE->Pop();
Memo1->Lines->Add(S);
CE->Next();
}

}

[Carbon]

Как у тебя граф задаётся?