Утечка памяти

[forivanb]

Здравствуйте!
Было так:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
begin
  Result:=GetFields(self.GetFieldIndex(FieldName));
end;

Работало отлично, без утечки памяти.

Стало так:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
var s:String;
begin
  s:=GetFields(self.GetFieldIndex(FieldName));
  Result:=UTF8ToWideString(s);
end;

И EurekaLog указывает на строку

  Result:=UTF8ToWideString(s);

и говорит что тут утечка памяти.

Помогите пожалуйста разобраться/исправить
Спасибо

[GunSmoker]

http://www.gunsmoker.ru/2010/02/redux.html

[forivanb]

Статью я читал и ранее, спасибо. Но ответа не смог найти..
Все таки вопрос остается открытым.

[forivanb]

Вот скриншоты, мне посоветовали немного изменить код но тоже не помогло...

code.jpg

[forivanb]

GunSmoker наведите на мысль пожалуйста, может надо код какой так это легко