ComboBox Onchange ereignis schliesst form

[noHuman]

So müsste es gehen:

eine variable vom Typ Boolean;
[delphi]
var
Form2 : TForm2;
combo_change : Boolean;
[delphi]

die ComboBox Prozedur
[delphi]
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
ShellTreeView1.Root:=ComboBox1.Text;
combo_change := True;
end;
[delphi]

das OnCloseQuery vom Formular
[delphi]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if combo_change := True then
begin
CanClose := False;
combo_change := False;
end;
end;
[delphi]

das Sollte gehen (ungetestet!)