delphi TThread.CreateAnonymousThread 弹出查询时间窗口

var
lthread: TThread;
i: Integer;
lb: boolean;
begin
  lthread := TThread.CreateAnonymousThread(procedure
    var
      lform: tform;
      k: Integer;
    begin
      lform := tform.Create(nil);
      lform.BorderStyle := bsnone;
      lform.Position := poMainFormCenter;
      lform.Width := 200;
      lform.Height := 80;
      lform.Top := 0;
      lform.Left := 0;


      lb := True;
      lform.Show;
      k := 0;
      while true do
      begin
       //lform.Caption := '查询中...' + IntToStr(k) + '秒';
       lform.Canvas.TextOut(10,10,'查询中...' + IntToStr(k) + '秒');
       sleep(1000);
       inc(k);
      if not lb then break;

      end;
      lform.Free;
    end);
    lthread.Start;
    for I := 1 to 1000 do
    begin
      Sleep(10);
      Application.ProcessMessages;
    end;
    lb := False;