아래와 같이 하면 텍스트파일을 첨부 해 보내면 잘되는데 *.xls,*.jpg등 다른 파일은 첨부해도 수신자는 보이지 않습니다.아무리 찾아봐도 mime로 해야 한다고 하는데 어떻게  해야 하는지 잘 모르겠습니다.
아시는분 계시면 알려주시면 감사하겠습니다(초보라 많이 모방을 많이 합니다 이해 해 주시길////)
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
begin

  idSMTP1.UserId:='1234';
  idSMTP1.Password:='1234';
  idSMTP1.Host:='mail.chollian.net';
  idSMTP1.Port:=25;
  MyMessage.ContentType:= 'text/http';


  idSMTP1.Connect;

  try
    with MyMessage do
    begin

      Subject:=edSubject.Text;


      From.Text:=edUser_ID.Text;


      Recipients.EMailAddresses:='1234@chol.net';
      ReceiptRecipient.Address:='1234@chol.net';


      Body.Text:=edMessage.Text;



      idSMTP1.Send(MyMessage);
    end;
    //////////////////////////

//   if OpenDialog1.Execute then
   // begin
//   edit1.text:=opendialog1.filename;
    //////////////////////
    TIdAttachment.Create(myMessage.MessageParts,'c:\11.xls');
  finally

    idSMTP1.Disconnect;
  end;

end;
<!--CodeE-->