Thread startet aber macht nicht fertig

[kaiser1401]

Komplett ist die zu groß, aber hier mal die relevanten Teile:

Delphi-Quellcode:

unit NavForm;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, SHDocVw, ComCtrls, ImgList, ExtCtrls, MyFunct, uBase,
  uGroup, uDocumentType,vgbConstants,uconst, uRepository,vgbfunctions,usearch,
  main, uthreadcheckfornew;

type
  TAdvNavForm = class(TForm)
    // ...
    procedure FormCreate(Sender: TObject);
    procedure Test;
  private
   chkfrnw : TCheckForNewInPostkorbThread;
  end;

var
  AdvNavForm: TAdvNavForm;

implementation

uses logoform,global, DateUtils, UInfo;

{$R *.DFM}


procedure TAdvNavForm.FormCreate(Sender: TObject);
// ...
  chkfrnw:=TCheckForNewInPostkorbThread.Create(true);
  chkfrnw.Liste:=TStringList.Create;
  chkfrnw.Liste.Assign(vgbAvailablePostkoerbe); // vgbAvailablePostkoerbe ist eine bestehende Stringlist
// ...
  chkfrnw.Resume;
end;

procedure TAdvNavForm.Test;
begin
  ShowMessage('TestThreadAufruf');
end;

end.