Lowercase Funktion?

[Pseudemys Nelsoni]

Hallo,

ich möchte eine Lowercase Funktion schreiben, die ich ohne die VCL verwenden kann.

Bis jetzt habe ich es so:

Delphi-Quellcode:

function StrLower(Str: PChar): PChar;
var
  pIdx: PChar;
begin
  GetMem(Result, SizeOf(Str));
  pIdx := @Str[1];
  while (pIdx^ <> #0) do
  begin
    if pIdx^ in ['A'..'Z'] then
      pIdx^ := Chr(Ord(pIdx^)+32);
    Inc(pIdx);
  end;
end;

Nur ist das richtig? Ich meine, müsste ausserhalb der Funktion nicht dann auch noch FreeMem() aufgerufen werden?