Wenn du folgendes versuchst
Delphi-Quellcode:
//nach dem öffnen des Fensters
Button.Tag := 1;
//dann im OnExpanded
if Button.Tag = 0 then
//dein code zum öffnen
else Button.Tag := 0;
Ansonsten Poste mal den Code von den beiden Events dann versteht man besser was du meinst.
Gruß
Stormy