with FormaPrin.SMTP do begin
try
try
Connect;
except on E:Exception do begin
messagebox(Handle,'No se pudo establecer la conexión.','Error.',MB_oK+MB_ICONERROR);
end; end; finally
if Connected then begin
PostMessage.FromAddress:=strOrigen;
PostMessage.ToAddress.Text:=edtMail0.Text;
if edtMail1.Text<>'' then
PostMessage.ToCarbonCopy.Text:=edtmail1.text;
with PostMessage.Body do begin
Clear;
Add(edtHTML.Text);
end; PostMessage.Subject:=edtAsunto.Text;
SendMail;
Disconnect;
end; end; end;