SMTP 를 공부중 다음의 Source에서 오류가 나네요.
"보내기버튼"을 누르면 다음과 같은 에러메시지가 나옵니다.

project1.exe Raised exception class ESockError with message '10057:socket is not connected'.
Process stoped, Use Step or Run to continue

이유가 무엇인지요.

아래 Source에서 Host, Port, UserID를 대입후 connect 했을경우 성공적으로 넘어가는데, Password는 알 필요가 없나요?



procedure TForm1.BB_upClick(Sender: TObject);
begin
  try
    with SMTP_procotol do begin
      ClearParameters;
      Host   := 'www.mail.co.kr';
      Port   := 25;
      UserID := 'heetec';
      Connect;
    end;
    // 보내는 사람 정보
    with SMTP_procotol.PostMessage do begin
      FromAddress := 'heetec@mail.co.kr';
      FromName    := '홍길동';
    end;

    // 받는 사람 정보
    with SMTP_procotol.PostMessage do begin
      ToAddress.Add(Trim(Eb_receive_name.Text));
      ToCarbonCopy.Add(Eb_refer.Text);
      ToBlindCarbonCopy.Add(Eb_hidden_refer.Text);
      Attachments.AddStrings(LB_upfile.Items);
      Subject := Eb_title.Text;

      Body.Assign(Memo_mailmessage.Lines);
    end;
      SMTP_procotol.SendMail;

  Except
    on ESockError do
      begin
      MessageDlg('E-Mail 전송을 실패 했습니다!',mtWarning,[mbOK],0);
      SMTP_procotol.Disconnect;
    end;
  end;
end;