[JXJ]

saludos. como puedo convertir este trozo de codigo.

de VB a delphi. 7 especialmente lo que toca a emailInfo,
¿Que es correspondiente a delphi. ?
Muchas Gracias.

Código Delphi [-]

'=============================================================================
' SubmitTask
'=============================================================================
Private TForm1.SubmitTask(ByRef email As EmailInfo)
    Reset
    From = email.Sender
    Subject = email.Subject
    Text = email.Body
    Format = BodyFormat
    ServerAddr = Trim(txtServer.Text)
            
    If Trim(txtUser.Text) <> "" And Trim(txtPassword.Text) <> "" And Trim(txtServer.Text) <> "" Then
        UserName = txtUser.Text
        Password = txtPassword.Text
    Else
        UserName = ""
        Password = ""
    End If
            
    Call AddRecipient(email.Recipient, email.Recipient, 0)
    Call Send(, _
                            g_lSend, _
                            "any value")
End Sub