MemoryLeak in Nexus?

[haentschman]

Hallöle...
Ich hab mal was merkwürdiges hier...:

Beispielkonstrukt:

Delphi-Quellcode:

function DataModule.CreateData: TDataSet;
begin
  Result := TNxQuery.Create(nil);
  Result.SQL.Text := 'Blubb';
  Result.Open;
end;
...
procedure Anwendung.ReadData;
var
  I: Integer; 
  Data: TDataSet;
begin
  Data := DataModule.CreateData;
  try
    while not Data.Eof do
    begin
      ...Lesen  
    end; 
  finally
    Data.Free;
  end;
end;

Ich habe bei allen diesen Konstrukten ein Speicherleck. Habe ich was übersehen? Die Zeile 321 enthällt den Aufruf zu DataModule.CreateData
Oder veräppelt mich der MadExcept?

Danke.