아래는 제가쓰는 Function이에요
idSMTPClient 를 indy Component에서 가져와서 CLientIdSMTPClient 명칭 바꾸고 쓰시면 될 듯 합니다.
뭐 문장 보면 알겠죠..
TidMessage타입은 헬프에 있을거에요 그거 참조 하시고요

<!--CodeS-->
Function TPolicyRuleAct.SendMail(USERID, PASSWORD, HOST  : string; MyMessage : TidMessage) : boolean;
begin
  Result := false;
  // Config Client
  CLientIdSMTPClient.Username  := USERID;
  CLientIdSMTPClient.Password := PASSWORD;
  CLientIdSMTPClient.Host :=HOST;

  // Connect SMTP Server
  if Trim(CLientIdSMTPClient.Host) = '' then
    Exit;
  if Trim(CLientIdSMTPClient.Username) = '' then
    Exit;
  if Trim(CLientIdSMTPClient.PASSWORD) = '' then
    Exit;
  try

    CLientIdSMTPClient.Connect;
    with MyMessage do // Message = TidMessage
    begin
      // Config Subject
      CLientIdSMTPClient.Send(MyMessage);
      Result := true;
    end; // with MyMessage
  finally
    // Discconect Server
    CLientIdSMTPClient.Disconnect;
  end;
end;
<!--CodeE-->