function AllTablesActivate(wie: boolean): boolean; 
var 
  x, y: integer; 
  tf: TForm; 
begin 
  result := true; 
  for x := 0 to application.componentcount - 1 do begin 
    if application.components[x] is TForm then begin 
      tf := TForm(application.components[x]); 
      for y := 0 to tf.componentcount - 1 do begin 
        if tf.components[y] is TTable then 
        try 
          TTable(tf.components[y]).active := wie; 
        except 
          result := false; 
        end; 
      end; 
    end; 
  end; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not AllTablesActivate(true) then 
    showmessage('Mindestens eine Datenbank konnte nicht bearbeitet werden.'); 
end;