Delphi-PRAXiS - Delphi Mail versenden in Thread auslagern

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Mail versenden in Thread auslagern (https://www.delphipraxis.net/112903-mail-versenden-thread-auslagern.html)

Mail versenden in Thread auslagern

Hallo,
und zwar dauerte das Versenden von Mails mit großen Anhängen immer äußerst lang, woraufhin ich versucht habe es in einen einen extra Thread auszulagern. Mit Threads kenn ich mich allerdings nich aus und irgendwas schein ich auch falsch gemacht zu haben, da ich eine Exception "Ungültiges Handle" beim Schließen des Programms bekomme.
Ich glaube das hat irgendwas mit Thread Synchronisation zu tun oder so... Aber da steig ich nicht sorecht durch.

Delphi-Quellcode:

			procedure SendenThreadExecute;

    var tp: PThreadParams;

        Thread: THandle;

        ExitCode: Cardinal;

        ec: DWORD;

        ThreadID: Cardinal;

    begin

    if Length(MailForm.SubjectEdit.Text) >= 3 then

      begin

      New(tp);

      with Mailform.IdMsgSend do

          begin

            Body.Assign(Mailform.ContentMemo.Lines);

            From.Text := UserEmail;

            ReplyTo.EMailAddresses := UserEmail;

            Recipients.EMailAddresses := ReceiverEmail; { To: header }

            Subject := Mailform.SubjectEdit.Text; { Subject: header }

            Priority := TIdMessagePriority(Mailform.PrioComboBox.ItemIndex); { Message Priority }

          end;  // with

      Mailform.SMTP.Username := SmtpServerUser;

      Mailform.SMTP.Password := SmtpServerPassword;

      {Allgemeine Einstellungen}

      Mailform.SMTP.Host := SmtpServerName;

      Mailform.SMTP.Port := SmtpServerPort;

      tp.sttemp := Mailform.EingangStatusBar.Panels[1].Text;

      Mailform.Label1.Caption := tp^.sttemp;

      tp.msgSend := Mailform.IdMsgSend;

      Thread := BeginThread(nil, 0, @SendenThreadFunction, tp, 0, ThreadID);

        // Auf Beendigung des Threads warten.

      //WaitForSingleObject(Thread, INFINITE);

      CloseHandle(Thread);

      end  //if

    else

      begin

        MessageDlg('Bitte geben Sie einen Betreff ein.', mtWarning ,[mbOK],0);

      end;

    end;

  function SendenThreadFunction(tp: PThreadParams): Integer;

  var msgSend: TIdMessage;

      sttemp: String;

  begin

    sttemp := PThreadParams(tp)^.sttemp;

    msgSend := PThreadParams(tp)^.msgSend;

    {Mail verschicken}

    Mailform.ShowStatus('Verbindung mit Postausgangsserver wird hergestellt...');

    Mailform.SMTP.Connect;

    try

      Mailform.SMTP.Send(msgSend);

      Mailform.ShowStatus('Nachricht wird gesendet');

    finally

      Mailform.SMTP.Disconnect;

      Mailform.ShowStatus(sttemp);

      Mailform.MailPb.Visible := False;

      Mailform.MailPb.Position := Mailform.MailPb.Max;

      Mailform.EingangStatusBar.Panels[0].Text := 'Senden erfolgreich';

      Dispose(tp);

    end;  // try

Könntet ihr mir vielleicht nen Hinweis geben was ich falsch mache und nen Anstoß wie ich es richtig machen kann? Danke