Кол-во писем

[SanNick]

Написал небольшой спамер на мыло
procedure TForm2.Button1Click(Sender: TObject);
begin
for i:= 0 to spinedit1.value do
begin
idSmtp1.Username:=Edit1.Text;
idSmtp1.Password:=Edit2.Text;
idSmtp1.Port:=25;
idSmtp1.Host:='smtp.mail.ru';
//--------------------------------------
idMessage1.from.text:=Edit1.Text;
idMessage1.Recipients.Add.Text:=Edit3.text;
idMessage1.Body.Text:=Memo1.Text;
try
idSmtp1.Connect;
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
except
ShowMessage('Ошибка при отправке!');
end;
end;
end;

А как сделать так,чтоб например в label1 показывалось кол-во отправленных писем?

[vinni123]

procedure TForm2.Button1Click(Sender: TObject);
var
count:integer;
begin
count:=0;
for i:= 0 to spinedit1.value do
begin
idSmtp1.Username:=Edit1.Text;
idSmtp1.Password:=Edit2.Text;
idSmtp1.Port:=25;
idSmtp1.Host:='smtp.mail.ru';
//--------------------------------------
idMessage1.from.text:=Edit1.Text;
idMessage1.Recipients.Add.Text:=Edit3.text;
idMessage1.Body.Text:=Memo1.Text;
try
idSmtp1.Connect;
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
except
ShowMessage('Ошибка при отправке!');
end;
count:=count+1;
label1.caption:=inttostr(count);
end;
end;