[Votmax]

Короче, обошел я этот косяк .

Нужно выкинуть все почтовые элементы с формы и создавать их каждый раз при отправке письма.

Получается что то вроде этого:

Код:

var
IdSMTP1: TIdSMTP;
IdSSLIOHandlerSocketOpenSSL1 : TIdSSLIOHandlerSocketOpenSSL;
MailMessage: TIdMessage;

begin

IdSMTP1 := TIdSMTP.Create;
IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create;
MailMessage:=TIdMessage.Create;

//Отправляем письмо, все как обычно.
//А в конце беспощадно их ликвидируем:

if IdSMTP1.Connected then IdSMTP1.Disconnect;
IdSMTP1.Free;
IdSSLIOHandlerSocketOpenSSL1.Free;
MailMessage.Free;

end;

Надеюсь, кому то пригодится, потому что в интернете, на форумах по этой теме мало, что есть.
Обычно или важничают или ссылки кидают, мол почитай там то