Hmm..
Da Du ja immer die gleiche IsMessage verwendest, und diese nicht immer neu erstellt, solltest Du auch
MailMessage.Body.Text := edtBody.Text;
oder
Delphi-Quellcode:
MailMessage.Body.Clear;
MailMessage.Body.Add(edtBody.Text);
verwenden, damit der 'neue' Body nicht immer am 'alten' angehängt wird.