안녕하세요?

다름이 아니오라 Thread에서 IdSMTP를 사용하면 Access Violation이 발생합니다. 원래 안되는 건가요? 아니면 뭐가 잘못된건가요? 도와 주세요^^

=================================
호출하는 부분
=================================
mailer := TMailSender.Create(errorlists);
mailer.Suspend;



====================================
Thread
====================================
unit MailSender;


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, comctrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, StdCtrls, ExtCtrls, IdMessage, IdEMailAddress;


type
  TMailSender = class(TThread)

private
        ErrorList : TStringList;
 protected
        procedure Execute; override;
  public
        constructor Create(errors : TStringList);
        destructor Destroy; override;

  end;

implementation

uses Main, SAUtil;

//생성자
constructor TMailSender.Create(errors : TStringList);
begin
        ErrorList := errors;
        inherited Create(true);
        FreeOnTerminate := true;
end;

//소멸자
destructor TMailSender.Destroy;
begin
// some free ping component;
inherited;
end;

procedure TMailSender.Execute;
var
        host : String;
        port : Integer;
        sender : String;
        id : String;
        passwd : String;
        auth : Boolean;
        rcvs : TStringList;

        IdSMTP1 : TIdSMTP;
        msg : TIdMessage;
        emaillist : TIdEMailAddressList;
        from : TIdEMailAddressItem;
        textPart: TIdText;
        currentTime : String;

        i : Integer;
        erroridx : Integer;
        rcvidx : Integer;
begin
        host := SAUtil.smtphost;
        port := SAUtil.smtpport;
        sender := SAUtil.from;
        id := SAUtil.userid;
        passwd := SAUtil.smtppassword;
        auth := SAUtil.auth;
        rcvs.CommaText := SAUtil.emailTarget;

{IdSMTP1을 참조만 하면 AccessViolation이 생깁니다.}        
        //Indy SMTP 컴포넌트
        IdSMTP1 := TIdSMTP.Create(nil);

        //HELO픞 사용한다.
        IdSMTP1.UseEhlo := true;
        IdSMTP1.HeloName := id;
        //SMTP Host, Port
        IdSMTP1.Host := host;
        IdSMTP1.Port := port;

        //메일 메세지
        msg := TIdMessage.Create(nil);
        msg.Clear;
        msg.ContentType := 'Multipart/Alternative';

        {
        // add a plain text message part
        textPart:=TIdText.Create(msg.MessageParts,nil);
        textPart.ContentType:='text/plain';
        textPart.Body := errorlist;
        }

        // 보내는 문자열 HTML message
        textPart:= TIdText.Create(msg.MessageParts, nil);
        textPart.ContentType := 'text/html';
        for erroridx:=0 to errorlist.Count-1 do begin
                textPart.Body.add(errorlist[erroridx] + '<br>');
        end;
        msg.Body := textPart.Body;
        
        //보내는 사람
        from := TIdEmailAddressItem.Create(nil);
        from.Name := id;
        from.Address := sender;

        //Auth Information
        if auth then begin
                IdSMTP1.AuthenticationType := atLogin;
                IdSMTP1.UserName := id;
                IdSMTP1.Password := passwd;
        end
        else begin
                IdSMTP1.AuthenticationType := atNone;
        end;

        //메일 메세지의 항목을 채운다.
        msg.Subject := 'ServiceAlive Monitoring Result - Error';
        msg.From := from;

        try
                //받는사람
                for rcvidx:=0 to rcvs.Count-1 do begin
                        msg.Recipients.clear;
                        //for i:=0 to rcvs.Count-1 do begin
                        msg.Recipients.Add.Address := rcvs.Strings[rcvidx];
                        //end;

                        try
                                currentTime := FormatDateTime('yyyy"/"mm"/"dd hh:mm:ss', StrToDateTime(DateTimeToStr(Now)));
                                IdSMTP1.Connect;
                                IdSMTP1.Send(msg);
                                Form1.AddEventLog(0, currentTime, '메일 전송 성공[' + rcvs.Strings[rcvidx] + ']');
                                IdSMTP1.Disconnect;
                        except
                                on e: Exception do begin
                                        Form1.AddEventLog(2, currentTime, '메일 전송중에 에러발생[' + e.message + ']');
                                        IdSMTP1.Disconnect;
                                        continue;
                                end;
                        end;

                end;    //End For Statement
        finally
                IdSMTP1.Destroy;
        end;
end;