From VB to Delphi

[mohfa]

I want to Translate this VB Code into Delphi :

Code:

Private Sub cmdTP_Click()
MyStrg = ""
MSComm1.Output = "0111" & vbCr
MyStrg = MSComm1.Input
    Text1.Text = MyStrg
    Temp = Mid(MyStrg, 12, 3)
    If InStr(1, Temp, ">") <> 0 Then
    'If Mid(MyStrg, 12, 1) = ">" Then
    B1 = Mid(MyStrg, 7, 2)
'Convert slection into decimal
B2 = ("&H" & B1)
'calulate it
TP = (B2 / 256) * 100
TP = Format(TP, "0")
'output
lblTP.Caption = TP & " %"
Else
'Do Nothing
End If
End Sub

many thanks