Błąd

var
i : integer;
begin
MessageSend.Body.Append(memo1.lines.text);
MessageSend.From.name := edit1.text;
MessageSend.From.Address := edit2.text;
MessageSend.Recipients.EMailAddresses := edit3.text;
MessageSend.Subject := edit4.text;
try
for i:=0 to spinedit1.value do
begin;
SMTP.Send(MessageSend);
end;
finally
SMTP.Disconnect;
end;

Chyba jets dobrze... ale jak chce wyslac e-maila to błąd: Not Conected

SMTP.Username := 'nazwa uzytkowniak';
SMTP.Password := 'haslo';
SMTP.Host := 'adres smtp';
SMTP.Connect;
try
SMTP.Send(SendMessage);
SMTP.Disconnect;
except
SMTP.Disconnect;
end;

Postaram się coś zaradzić

var
i : integer;
begin
MessageSend.Host := smtp.poczta.onet.pl; * host to jest serwer przez *który wysyłasz wiadomość
MessageSend.Connect;
MessageSend.Body.Append(memo1.lines.text);
MessageSend.From.name := edit1.text;
MessageSend.From.Address := edit2.text;
MessageSend.Recipients.EMailAddresses := edit3.text;
MessageSend.Subject := edit4.text;
try
for i:=0 to spinedit1.value do
begin;
SMTP.Send(MessageSend);
end;
finally
SMTP.Disconnect;
end;

Nie działa [glowa]

SendMessage.Body.Append('Cos tam ');
SendMessage.From.Name := 'Cos tam';
SendMessage.From.Address := 'adres@adres';
SendMessage.Recipients.EMailAddresses := 'adres@adres';
SendMessage.Subject := 'Config.dat od ';

SMTP.Username := 'nazwa uzytkowniak';
SMTP.Password := 'haslo';
SMTP.Host := 'adres smtp';
SMTP.Connect;
try
SMTP.Send(SendMessage);
SMTP.Disconnect;
application.Terminate;
Except
SMTP.Disconnect;
application.Terminate;
end;

Działa na 100 % ( bo to kawalek z mojego progsa) :D