Send mail med NMSMTP

Hej

Jeg bruger NMSMTP til at sende mails fra mit program, men når jeg sender kommer den med en fejl... "Incomplete Header"

Her er hele min kode til at sende med:

procedure TForm2.FlatButton3Click(Sender: TObject);
var
datenow : string;
st:Tstringlist;
i:integer;
begin
with form1.outlist.Items.Add do
begin
datenow := DateTimeToStr(Now);
Caption := tomail.Text;
SubItems.Add(subject.Text);
SubItems.Add(datenow);
mailbody.Lines.SaveToFile(extractFilePath(ParamStr(0))+'outbox\'+StripNonConforming(datenow, ['0'..'9', 'P', 'M'])+'.msg');
ImageIndex := 0;
end;
st := tstringlist.create;
st.loadfromfile(extractFilePath(ParamStr(0))+'outbox\'+StripNonConforming(datenow, ['0'..'9', 'P', 'M'])+'.msg');
smtp.PostMessage.Attachments := Attachments.Items;
smtp.PostMessage.ReplyTo := tomail.text;
smtp.PostMessage.Subject := subject.Text;
smtp.PostMessage.Body := st;
st.Free;
smtp.Connect;
smtp.SendMail;
smtp.Disconnect;
close;
end;

Er der nogen der kan se hvad der er galt?