Problem mit threads und sleep

[UweG.]

Hallo,

und danke für die schnellen Antworten.

Hier noch mal ein wenig mehr source

Code:

(*
  tloadercom = class (tthread)
  protected
    procedure Execute; override;
    procedure hallo;
    procedure destroy;
  public
    constructor create;
  end;  
*)

 procedure TForm1.br1Click(Sender: TObject);
 begin
{ Erzeugung des thread }
   if loadercom <> nil then loadercom. terminate; { loadercom : tloadercom } 
   todostatus := st_erase;
   Form1. buttonaus;
   loadercom := tloadercom. create;

{ irgend ein code }
  {............................
  .............................
  .............................
  .............................}

{ Ende des thread }
   finally 
     if not loadercom. terminated then loadercom. terminate;
 end;

.............. 
  br1click (button1);
  Delay2 (3);           
  bfclick (button1);
  display_string ('bf');

@Luckie:
Das mit dem Delay klappt bei mir nicht.
Selbst mit msec := 3 kommt der Delay erst nach ca. 5-6 Sekunden wieder


@Chris:
Erzeugung meines treads siehe oben
So wie Du das mit dem sleep erklärst habe ich das auch verstanden (dachte ich ).
Ich benutze noch Delphi 2.0 dev. vielleicht liegts daran?

MfG. Uwe