Quizás te interese tambien la constante dsEditModes declarada en la unit BD
Código Delphi
[-]procedure Tconfgrupos.Button2Click(Sender: TObject);
begin
with moduloimagenes.patologi do
if State in dsEditModes then Post;
confgrupos.close;
end;
Saludos