Stack Overflow при сохранении

[Shouldercannon]

Помогите столкнулся с ошибкой Stack Overflow при сохранении

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var res: Integer;
begin
if ComboBox1.Text='All' then
if Izmenenie=False then begin //Из-за этой строчки Stack Overflow (Izmenenie следит за изменениями в Memo, чтобы небыло запроса сохранения если содержимое было уже сохранено)
Close;
Exit;
end else

res:=MessageBox(0, 'Current text file not saved. Save changes?', pChar(ProgramName), MB_YESNOCANCEL or MB_ICONWARNING or MB_DEFBUTTON1);
case res of
IDYES: Savelog1Click(Self);
IDCANCEL: Action:=caNone;
end;
end;

[soleil@mmc]

боюсь, что переполнение стека вот из-за этой строчки

Close;

укажи там вместо нее

Action:=ca...

тот экшон, который считаешь нужным

и немного можно бобрюзжать
это

if Izmenenie=False then

вполне себе упрощается до этого

if not(Izmenenie) then