MemLeak, aber wo???

[snook]

eigentlich nicht oder?

Delphi-Quellcode:

function TCustomDataModule.GetCharValue(AKey: PChar): PChar;
var index: integer;
begin
  result := PChar('');
  index := IndexOf(AKey);
  with FList.LockList do
    try
      if (index > -1) and
         (PDataModuleItem(Items[index])^.datatype = STR_DATA) then
          result := PChar(PDataModuleItem(Items[index])^.Value);
    finally
      FList.UnlockList;
    end;
end;

mir fiel gerade noch ein, dass es evtl möglich ist, dass die PChars bei nem new(PItem) evtl vorinitialisiert werden mit irgend nem wert? so ala fillchar?