procedure DisplayLastUserRecord(UserRec: RSI_USER_RECORD; Result: Longint);
var
  teks: string[10];
begin
  if (RSI_Result(Result) = RSI_SUCCESS) Then
  begin
    Result:=rsiIDToText(UserRec.ID, teks); // error UserRec.ID harus nya lebih detail, klo di VB langsung az
    txtAuth.text:=IntToStr(UserRec.authorityLevel); // ini juga error
  end;
end;

txtAuth.text:=IntToStr(ORD(UserRec.authorityLevel)); // <-- kesalahan yg sama = capeee deee

@DelphiExpert: coba tulis deklarasi RSI_ID versi VB-nya

Type RSI_ID
    b0 As Byte
    b1 As Byte
    b2 As Byte
    b3 As Byte
    b4 As Byte
End Type

Function rsiIDToText(var ID: RSI_ID; text: String): longint; external 'rsidll32.DLL';