TSQLGetDiagRec

type TSQLGetDiagRec = function(

  HandleType: SQLSMALLINT;

  Handle: SQLHANDLE;

  RecNumber: SQLSMALLINT;

  SqlState: PSQLCHAR;

  var NativeError: SQLINTEGER;

  MessageText: PSQLCHAR;

  BufferLength: SQLSMALLINT;

  var TextLength: SQLSMALLINT

):SQLRETURN;