델파이 초보자입니다.
현제 급하게 처리해야할부분이 있습니다.
vb로된 처리루틴을 델파이로 컨버젼 해야 합니다. 부탁드리겠습니다.

Function Hangul_Flash_Rom(HanStr As String, xpos As Integer, ypos As Integer, xsize As Integer, ysize As Integer, jagan As Integer, rotate As Integer) As String


'//=============================================//
'// 한글(Flash Rom용) -----------------> Zpl    //
'//---------------------------------------------//
'//2002.07.12 문자열을 가로로 출력한다.         //
'//---------------------------------------------//
'// arg_string : 변환하고자 하는 문자열         //
'// arg_posx   : x축위치                        //
'// arg_posy   : y축위치                        //
'// arg_sizex  : 가로확대비율                   //
'// arg_sizey  : 세로확대비율                   //
'//---------------------------------------------//
'// return : Zpl String                         //
'//---------------------------------------------//
Dim HanChr
Dim zpl_string, ls_image         '// return Value, image name
Dim ls_HanGul                    '// 한글, Font
Dim hex_fr, hex_to               '// Hex first/last
Dim li_len, li_hlen              '// 한글 길이
Dim ls_data_string
Dim ls_font As String
Dim HexCode As String


'한글길이
li_len = Len(HanStr)
If li_len < 1 Then
    Hangul_Flash_Rom = zpl_string
End If

li_hlen = 0
For li_loop = 1 To li_len

   HanChr = Mid$(HanStr, li_loop, 1)
    
    
   If Asc(HanChr) < 0 Then           '한글코드이면
        
         HexCode = Hex(Asc(HanChr))
        
  
   Else                              'Ascill 코드이면
        
        
         HexCode = Hex(Asc(HanChr))
        
        
        While Len(HexCode) < 4
            HexCode = "0" & HexCode
        Wend
        
    
   End If
  
   If rotate = 0 Then
   ls_data_string = "^FO" & Trim(Str(xpos + (li_hlen * jagan * xsize))) & "," + Trim(Str(ypos + 20)) _
                          & "^XG" & Trim(HexCode) & "," & Trim(Str(xsize)) & "," + Trim(Str(ysize)) & "^FS"
                          
   ElseIf rotate = 1 Then
   ls_data_string = "^FO" & Trim(Str(xpos + 0)) & "," & Trim(Str(ypos + (li_hlen * jagan * ysize))) _
                          & "^XGE:1" & Trim(HexCode) & "," & Trim(Str(xsize)) & "," & Trim(Str(ysize)) & "^FS"
   End If
                          
                          
   If Asc(HanChr) < 0 Then           '한글코드이면
        li_hlen = li_hlen + 2
   Else
        li_hlen = li_hlen + 1
   End If
  
   zpl_string = zpl_string & ls_data_string
Next

  Hangul_Flash_Rom = zpl_string

End Function