Privileged instruction

Jeg er begyndt at få denne exception (Privileged instruction).

Fejlen opstår, når jeg kører følgende code i mit datamoduls onCreate event:

procedure TDatamodule1.DataModuleCreate(Sender: TObject);
var
  i : integer;
begin
  for I:= 0 to ComponentCount - 1 do
    begin
    if Components[I] is TClientDataset then
      TClientDataset(Components[i]).CreateDataSet;
      TClientDataset(Components[i]).Open;
    end;
end;

Mine TClientDataSets er alle lukkede, når jeg kompilerer.

Jeg har søgt på nettet omkring fejlen "Privileged instruction" men det går vist længere ud end min viden om Delphi programmering.

En dygtig mand, der, kan hjælpe. :)