Добрый день, подскажите пожалуйста, где тут утечка происходит, через каждые два три запуска данной процедуры, EurekaLog жалуется на не освобожденную память..

procedure GetRandomName(var Buffer: String; StrLen: Integer; const Hex: Boolean = False);
const
FillMap1 = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
FillMap2 = '0123456789ABCDEF';
var
i: Integer;
begin
Randomize;

for i:=1 to StrLen do
if (Hex) then
Buffer:=Buffer + FillMap2[Random(Length(FillMap2)+1)+1] else // Жалуется на эти
Buffer:=Buffer + FillMap1[Random(Length(FillMap1)+1)+1]; // 2 строки в зависимости от Hex=true или false.
end;

Помогите разобраться, в чем тут дело..