try
smtp.host:=strsend;
smtp.postmessage.FromAddress:='gouzy@sunv.com';
smtp.PostMessage.FromName :='gouzy';
smtp.UserID :=strusername;
smtp.postmessage.ToAddress.text:=edtsend.text;
smtp.PostMessage.Subject :=edtmain.text;
smtp.PostMessage.Body.Add(mmsend.Lines.Text);
btnsend.Enabled :=false;
btnstop.Enabled :=true;
smtp.Connect;
except on eaccessviolation do
showmessage('asdfasdfasdf');
end;
