Sasha wrote:

>
> function gen_uuid: PChar;
> var
> uid: TGUID;
> begin
> CreateGUID(uid);
> GetMem(Result, SizeOf(TGUID));

Do you really believe Firebird knows how to free the memory allocated by
the Delphi memory manager?

Always use ib_util_malloc() to allocate memory for the UDF result string
declared as FREE_IT.


Dmitry