Форум АНТИЧАТ - Как отправить скажем все формы на имейл на дельфи

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

Как отправить скажем все формы на имейл на дельфи

Код:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit2: TEdit;

    Label4: TLabel;

    Edit3: TEdit;

    Edit5: TEdit;

    Label5: TLabel;

    Label7: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label6: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin



end;



end.

что то типа того, вот тут я не силен совсем.
надо отправить все поля Edit при нажатие кнопки баттон1 клик
как это сделать

через Indy -компоненты можно. Вот пример

wm-help.net/articles/article/03.03.20069183-30.html

p.s. use gooooooogle

Код:

var

Msg: TIdMessage;

begin

Msg.Subject:='тема сообщения';              

Msg.Recipients.EMailAddresses:='smthink@mail.ru';

Msg.From.Adress:='smbody@mail.ru';          //автор письма

Msg.Body.Text:=edit1.text+edit2.text;           

Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой

end;   





IdSMTP1.Port:=25;

IdSMTP1.Host := 'smtp.mail.ru';

IdSMTP1.Connect(5000);

IdSMTP1.AuthenticationType:=atLogin;

IdSMTP1.Username:='test';

IdSMTP1.Password:='test';

if Connected=True then IdSMTP1.Send(Msg);