Перенос процедуры из события в поток

function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
  const MailData: TStrings; const Username, Password: string): Boolean;
var
  SMTP: TSMTPSend;
  s, t: string;
begin
  Result := False;
  SMTP := TSMTPSend.Create;
  try
// if you need SOCKS5 support, uncomment next lines:
    // SMTP.Sock.SocksIP := '127.0.0.1';
    // SMTP.Sock.SocksPort := '1080';
// if you need support for upgrade session to TSL/SSL, uncomment next lines:
    SMTP.AutoTLS := True;
// if you need support for TSL/SSL tunnel, uncomment next lines:
    // SMTP.FullSSL := True;
    SMTP.TargetHost := Trim(SeparateLeft(SMTPHost, ':'));
    s := Trim(SeparateRight(SMTPHost, ':'));
    if (s <> '') and (s <> SMTPHost) then
      SMTP.TargetPort := s;
    SMTP.Username := Username;
    SMTP.Password := Password;
    if SMTP.Login then
    begin
      if SMTP.MailFrom(GetEmailAddr(MailFrom), Length(MailData.Text)) then
      begin
        s := MailTo;
        repeat
          t := GetEmailAddr(Trim(FetchEx(s, ',', '"')));
          if t <> '' then
            Result := SMTP.MailTo(t);
          if not Result then
            Break;
        until s = '';
        if Result then
          Result := SMTP.MailData(MailData);
      end;
      SMTP.Logout;
    end;
  finally
    SMTP.Free;
  end;
end;
 
procedure Tfilesender.bstartClick(Sender: TObject);
var xMsg: TMimeMess; atta: string; xMIMEPart: TMimePart; i,f,s: integer;
begin
  s:=StrToInt(lblstartsub.Text)-1;
  f:=StrToInt(lblstartfile.Text)-1;
  for i:= 0   to StrToInt(lblmailamo.Text)-1 do
   begin
   lst1.Items.Add('['+TimeToStr(Now)+'] Sending "'+FileListBox1.Items[f+i]+'" witch subj "'+lst2.Items[s+i]+'"...' ) ;
  stat1.Panels[2].Text:='Sending '+ IntToStr(i+1)+' from '+ lblmailamo.Text;
  xMsg:=TMimeMess.Create;
  try
    xMsg.Header.Subject:=lst2.Items[s+i]; {òåìà ñîîáùåíèÿ}
    xMsg.Header.From:=lblfrom.Text;        {èìÿ è àäðåñ îòïðàâèòåëÿ}
    xMsg.Header.ToList.Add(lblto.Text);  {èìÿ è àäðåñ ïîëó÷àòåëÿ}
    xMIMEPart:=xMsg.AddPartMultipart('alternative',nil);
    xMsg.AddPartBinaryFromFile(FileListBox1.Directory +'\'+ FileListBox1.Items[f+i],xMIMEPart);
    xMsg.EncodeMessage;
    if not SendToRaw(lblfrom.Text,lblto.Text,lblhost.Text,xMsg.Lines,lbllogin.Text,lblpassword.Text)
      then ShowMessage('Ïèñüìî íå îòïðàâëåíî');
  finally
    xMsg.Free;
  end;
  sleep(StrToInt(lblsenddelay.Text)*1000);
    lst1.Items.Add('['+TimeToStr(Now)+'] Sending "'+FileListBox1.Items[f+i]+'" witch subj "'+lst2.Items[s+i]+'" COMPLETE!' );
    //lst1.Items.Add('s = '+inttostr(s)+'; f = '+inttostr(f));
    if s<0  then lst1.Items.Add('['+TimeToStr(Now)+'] Not enough subjects!');
    if f<0 then lst1.Items.Add('['+TimeToStr(Now)+'] Not enough files!');;
    if s<0  then Break;
    if f<0  then Break;
    end;
    lst1.Items.Add('['+TimeToStr(Now)+'] ALL DONE!');
    stat1.Panels[2].Text:='Complete!';
  end;