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

[Adekvatnyj]

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 клик
как это сделать

[Linkus]

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

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

p.s. use gooooooogle

[DeaD_MoroZ]

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);