Wie wäre es mit einer Bool' schen Variablen? Wenn Du das Feld einfügst, setzt Du diese auf true und wertest sie am Prozeduranfang aus. Ist sie true, wird sie nur auf false gesetzt, ansonsten Dein jetziger Code ausgeführt. Falls das jetzt zu kompliziert ausgedrückt war:
Delphi-Quellcode:
procedure ...;
begin
if ReOpened then //Variable (oder privates Feld) auswerten
ReOpened := false
else
begin
//Dein jetziger Code
ReOpened := true;
end;
end;