TSQLGetDiagField

type TSQLGetDiagField = function(

  HandleType: SQLSMALLINT;

  Handle: SQLHANDLE;

  RecNumber: SQLSMALLINT;

  DiagIdentifier: SQLSMALLINT;

  DiagInfoPtr: SQLPOINTER;

  BufferLength: SQLSMALLINT;

  var StringLengthPtr: SQLSMALLINT

):SQLRETURN;