Кто может памоч с рассыльщиком

[Xaker2650]

Доброе время суток всем!
Я пишу расыльщик, сегодня всю ночь не спал весь мог свой проколупал(.
Я его написал работает норм но есть одна проблема она заключается в кодировке, первые письма отсылаются с темой No Subject, а если повторно рассылку делаешь то тема в письмах появляется. В чём тут загвоздка понять не могу, вроде код накарябал правильно .
Вот сам код:

procedure TForm1.Button4Click(Sender: TObject);
var
b: integer;
idtTextPart : TIdText;
begin
SMTP.Host:= Edit1.Text; 
SMTP.Port:=StrToInt(Edit2.Text);
SMTP.Username:=Edit3.Text;
SMTP.Password:=MaskEdit1.Text;
SMTP.AuthenticationType:=atLogin;
with IdMessage1 do
begin
IdMessage1.From.Text:=Edit4.Text;
IdMessage1.ContentType:='Content-Type: text/html'; 
IdMessage1.CharSet:='windows-1251'; 
IdMessage1.ContentType:= 'multipart/mixed'; 
idtTextPart := TIdText.Create(IdMessage1.MessageParts, nil); 
idtTextPart.ContentType:='multipart/alternative'; 
idtTextPart:= TIdText.Create(IdMessage1.MessageParts, nil); 
idtTextPart.ContentType := 'text/html'; 
idtTextPart.Body.Add(Memo2.Text);
IdMessage1.AddHeader('Subject:'+Edit5.Text); 
Try 
SMTP.Connect();
If SMTP.Connected = true Then   
begin
ShowMessage('Подключение к SMTP серверу прошло успешно!');
Label8.Caption:='Подключен';
Label8.Font.Color:=clGreen;
end
Else
ShowMessage('Не Удалось соединиться с SMTP сервером!');
IdMessage1.AddHeader('To:'+ListBox1.Items.Strings[0]);   
IdMessage1.IsEncoded:=True; 
For b:=0 to ListBox1.Items.Count-1 Do   
Begin
try
IdMessage1.Recipients.EMailAddresses:=ListBox1.Items.Strings[b]; 
ProgressBar1.Position:=b;
SMTP.Send(IdMessage1); 
Memo1.Lines.Add('Письмо по адресу: '+IdMessage1.Recipients.EMailAddresses+ ' отправлено успешно!'); 
except on E:Exception do
Begin
Memo1.Lines.Add('Письмо по адресу: '+IdMessage1.Recipients.EMailAddresses+'Не отправлено!ERROR- '+E.Message); 
Continue;
end;
end;
end;
finally
SMTP.Disconnect; 
Label8.Caption:='Отключен';
Label8.Font.Color:=clRed;
ShowMessage('Отправка завершена!');
ProgressBar1.Position:=0;

end;
 end;
 end;
end.

P.S: Извините за ошибки в русском не спал всю ночь …

[grafgrial]

попробуй за место

IdMessage1.AddHeader('Subject:'+Edit5.Text); 

IdMessage1.Subject(Edit5.Text);