以下是一个简单的Delphi 7邮件发送程序的示例代码：
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdMessage, IdSMTP;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;edtSender: TEdit;edtRecipient: TEdit;edtSubject: TEdit;memBody: TMemo;btnSend: TButton;procedure btnSendClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btnSendClick(Sender: TObject);varSMTP: TIdSMTP;Msg: TIdMessage;beginSMTP := TIdSMTP.Create(nil);Msg := TIdMessage.Create(nil);trySMTP.Host := 'smtp.example.com'; // 设置SMTP服务器地址SMTP.Port := 25; // 设置SMTP服务器端口Msg.From.Address := edtSender.Text; // 设置发件人邮箱Msg.Recipients.Add.Address := edtRecipient.Text; // 设置收件人邮箱Msg.Subject := edtSubject.Text; // 设置邮件主题Msg.Body.Text := memBody.Text; // 设置邮件正文SMTP.Connect; // 连接SMTP服务器SMTP.Send(Msg); // 发送邮件finallySMTP.Disconnect; // 断开连接SMTP.Free;Msg.Free;end;ShowMessage('邮件发送成功！');end;end.请注意，你需要根据你自己的情况修改SMTP服务器地址、端口以及发件人、收件人的邮箱地址。此外，你还需要在Delphi 7中创建一个窗体，并将上述代码粘贴到窗体的代码部分。
