Тут дело вот в этих строчках:
Код:
...
SMTP.Username:='vasya@mail.ru';
SMTP.Password:='12345666';
...
From.Text := 'vasya@mail.ru';
Просто чего-то не правильно в них, например
SMTP.Username не пишется 'vasya@mail.ru', а например: "vasya", но здесь ошибки тольк в этих строчках, т.к. я ставил заместо них свои данные и все без ошибок
