# 208 Memory Leak in Data Access Components Due to Improper Password Entry

---

I may have found one of J Peter's memory leaks. consider:

procedure TDBISAMDataSet.OpenCursor(InfoQuery: Boolean);
begin
FHandle:=CreateHandle;
if (FHandle=nil) then
DatabaseError(SHandleError);
inherited OpenCursor(InfoQuery);
end;

...if CreateHandle raises an exception (as it does in the case of an invalid password) then the excecution point will never return so, although FHandle remains nil, the DataBaseError and the inherited methos are never called. As a result when we get to:

procedure TDBISAMDataSet.CloseCursor;
begin
inherited CloseCursor;
if FHandle <> nil then
begin
DestroyHandle;
FHandle:=nil;
end;
end;

...DestroyHandle is not called and the TDataFile object is never freed. Memory leak.