[M.A.D.M.A.N.]

Код:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
var
  foo: string;
begin
  foo := GetFields(self.GetFieldIndex(FieldName));
  Result:=UTF8ToUnicodeString(foo);
  setlength(foo, 0);
end;