From 2b8818ab2e810e47945cb531d5b07077fab97544 Mon Sep 17 00:00:00 2001
From: Yury Plashenkov <plashenkov@gmail.com>
Date: Wed, 28 Aug 2013 03:06:03 +0700
Subject: [PATCH] Fixing typo

---
 Source/SQLite3.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/SQLite3.pas b/Source/SQLite3.pas
index 34d8801..20eb351 100644
--- a/Source/SQLite3.pas
+++ b/Source/SQLite3.pas
@@ -563,7 +563,7 @@ procedure sqlite3_result_value(pCtx: PSQLite3Context; pValue: PSQLite3Value); cd
 procedure sqlite3_result_zeroblob(pCtx: PSQLite3Context; n: Integer); cdecl; external sqlite3_lib;
 
 type
-  TSQLite3CollationCompare = procedure(pUser: Pointer; n1: Integer; const z1: Pointer; n2: Integer; const z2: Pointer); cdecl;
+  TSQLite3CollationCompare = function(pUser: Pointer; n1: Integer; const z1: Pointer; n2: Integer; const z2: Pointer): Integer; cdecl;
   TSQLite3CollationDestructor = procedure(pUser: Pointer); cdecl;
 
 function sqlite3_create_collation(db: PSQLite3; const zName: PAnsiChar; eTextRep: Integer; pUser: Pointer; xCompare: TSQLite3CollationCompare): Integer; cdecl; external sqlite3_lib;