Traducir un codigo de VB a Delphi ¡¡¡¡ Por favor !!!!

[Betsa23]

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

[DarKraZY]

¿Es necesario usar estos componentes? ¿O la finalidad es mandar un email?

Sí sólo tienes que mandar un email, independientemente de los componentes, puedes utilizar las INDY

[Betsa23]

El objetivo que pretendo hacer es que se reciba corrreo mediante el protocolo IMAP, y como el unico componente que conozco es Chilkat IMAP, por eso, pero por favor, si conocen algun otro componente que pueda realizar esta recepcion de correo, se los agradeceria muchisimo.

En cuanto al envio de correo, con eso no tengo problemas.

Gracias de antemano

PD: DarKraZY, ¿ te podria agregar a mis contactos de messenger ?

Atte:
Betsa LF