comport vb -delphiye program update i ve dll compile hatası

[kazimates]

aşağıda visual basic de çalışan bir kod var ve bunun delphide yazılımı nasıl olacak bu konuda yardımcı olabilirmisiniz. çünkü aşağıda ki kodda dikkat edecek olursanız pmr232.dll diye bir dosyadan fonksiyon kullanılarak data gelişi sağlanmaktadır fakat bunu delphide başarabilmiş değilim ve şayet bu dll dosyayı delphide import type library den import etme istersem ve bunun için import type library - dll dosya seçilir --- activex kütüphanesinin altına kurması seçilir--- ve devam eden pencerelerden sonra compile ekranında compile diyoruz fakat buna rağmen install butonu active olmuyor ve buda dl in delphiye kurulmamasına sebep oluyor. bununla ilgili olarak ve aşağıdaki vb codlarını inceeleyecek olursanız bana nasıl bir çözüm tekniği önerebilirsiniz.

sağlık, başarı ve mutluluk dileklerimle...

Kod: Tümünü seç

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2100
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5355
   LinkTopic       =   "Form1"
   ScaleHeight     =   2100
   ScaleWidth      =   5355
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   360
      Top             =   1320
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Devamlı Oku"
      Height          =   255
      Left            =   3480
      TabIndex        =   1
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Kartı Oku"
      Height          =   615
      Left            =   2040
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   255
      Left            =   1200
      TabIndex        =   2
      Top             =   600
      Width           =   2895
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim Gel As String

Label1 = ""

Gel = Pmr232.KartSor


If Mid$(Gel, 3, 2) = "06" Then
    Label1 = Mid$(Gel, 7, 8)
End If

End Sub

Private Sub Form_Load()
Dim a

a = Pmr232.ComPortAyar(2, "", True)


End Sub


Private Sub Timer1_Timer()

Command1.Value = Check1.Value

End Sub