TSQLGetDiagRecW

type TSQLGetDiagRecW = function(

  HandleType: SQLSMALLINT;

  Handle: SQLHANDLE;

  RecNumber: SQLSMALLINT;

  SqlState: PSQLWCHAR;

  var NativeError: SQLINTEGER;

  MessageText: PSQLWCHAR;

  BufferLength: SQLSMALLINT;

  var TextLength: SQLSMALLINT

):SQLRETURN;