Создать отдельный поток для отправки письма

[betirsolt]

всем привет..есть прога почтовик,просто для отправки письма с прикрепленным файлом, проблема в том что при отправке письма

procedure TForm1.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 infolabel.Caption:='Отправка письма...';
end;

сообщение об отправке не выводиться,главная форма зависает при отправке и я хотел создать отдельный поток для отправки письма чтоб все сообщения выводились во время,кто подскажет как это сделать??когда я создаю поток то не могу оттуда обращаться к компонентам на главной форме,компонент TidAntiFreeze не помог

[Пепел Феникса]

а что TThread пользоватся не умеете?

http://phoenix.ucoz.org/files/exampl...hread-mail.rar
вот похожий пример.

[betirsolt]

наконец то у меня получилось!!!!!вот как

unit mythread;

interface

uses
  Classes,windows,wininet,variants,Messages,SysUtils,Graphics,Controls,Dialogs;

type
  Tmsgsend = class(TThread)
  private
    { Private declarations }


  protected
    procedure Execute; override;

  end;

implementation

uses Unit1, settings;

 function IsConnectedToInternet: Boolean;
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
 end;

procedure Tmsgsend.Execute;
begin
  { Place thread code here }
 if isconnectedtointernet then
begin

 form1.idSMTP1.Username:=form2.loginedit.text;
 form1.idSMTP1.Password:=form2.passedit.text;
 with form1.idmessage1 do
    begin
   body.Text:=form1.memo1.Text;
   From.Text:=form2.loginedit.text;
   Recipients.EMailAddresses :=form1.adresedit.Text;
   Subject := form1.temaedit.Text;
    end;
   form1.idsmtp1.Connect;

   form1.idSMTP1.Send(form1.IdMessage1);
   form1.infolabel.Caption:='письмо отправлено!';
   form1.idSMTP1.Disconnect;
 end
   else showmessage('Интернет соединение отсутствует');
   if terminated then exit;
end;
end.

а в главной форме пишу следующий код по нажатию кнопки отправить

procedure TForm1.Button2Click(Sender: TObject);
begin
infolabel.Caption:='Отправка письма...';
potok:=tmsgsend.Create(true);
potok.Resume;
potok.Priority:=tplower;

end;

все работает отлично