Delphi - Traducir codigo VB a Delphi ¡¡¡¡¡ Por vafor !!!!!

Hola a todos:

Mi problema esta en que quiero recibir correo IMAP mediante una aplicación, estoy utilizando un componente llamado ChilkatIMAP, pero no logro traducir un ejemplo en Visual Basic a Delphi. El codigo es:

Private Sub Command1_Click()

' Create an object, connect to the IMAP server, login,
' and select a mailbox.
Dim imap As New ChilkatImap
imap.UnlockComponent "UnlockCode"
imap.Connect "mail.my_imap_server.com"
imap.Login "login", "password"
imap.SelectMailbox "Inbox"

' Get a message set containing all the message IDs
' in the selected mailbox.
Dim msgSet As messageSet
Set msgSet = imap.Search("ALL", 1)

' Fetch all the mail into a bundle object.
Dim bundle As New ChilkatEmailBundle
Set bundle = imap.FetchBundle(msgSet)

' Loop over the bundle and display the From and Subject.
Dim email As ChilkatEmail
For i = 0 To bundle.MessageCount - 1
Set email = bundle.GetEmail(i)
List1.AddItem email.From & ": " & email.Subject
Next

' Save the email to an XML file
bundle.SaveXml "bundle.xml"

' Disconnect from the IMAP server.
' This example leaves the email on the IMAP server.
imap.Disconnect


End Sub

Por favor, de verdad necesito mucho de su ayuda, ya llevo varias semanas y no me jala el codigo. Muchisimas gracias a los que me puedan ayudar

Atte:Betsa LF