procedure TForm1.SearchButtonClick(Sender: TObject);
var
  QueryThread: TDFQueryThread;
begin
  // Create and execute a query thread
  QueryThread := DFQueryManager.CreateQueryThread(
    ADOConnection1.ConnectionString,
    'SELECT * FROM Customers WHERE LastName LIKE :LastName',
    CreateParameters('LastName', '%' + edtSearch.Text + '%'),
    DBGrid1,
    ADOQuery1,
    Self
  );
  
  // The thread automatically starts and updates the UI when complete
end;

// Helper function to create parameters
function TForm1.CreateParameters(const ParamName, ParamValue: string): TParameters;
begin
  ADOQuery1.Parameters.Clear;
  ADOQuery1.Parameters.CreateParameter(ParamName, ftString, pdInput, 50, ParamValue);
  Result := ADOQuery1.Parameters;
end;

procedure TForm1.ExecuteMultipleQueries(Sender: TObject);
begin
  // Execute first query
  DFQueryManager.CreateQueryThread(
    ADOConnection1.ConnectionString,
    'SELECT * FROM Customers',
    nil,
    DBGrid1,
    ADOQuery1,
    Self
  );
  
  // Execute second query simultaneously
  DFQueryManager.CreateQueryThread(
    ADOConnection1.ConnectionString,
    'SELECT * FROM Orders',
    nil,
    DBGrid2,
    ADOQuery2,
    Self
  );
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Clean up any running threads when closing the form
  DFQueryManager.CleanupThreads;
end;

procedure TForm1.btnCancelQueryClick(Sender: TObject);
begin
  // Cancel all active queries
  DFQueryManager.CleanupThreads;
  
  // Show current thread count
  ShowMessage('Active Threads: ' + IntToStr(DFQueryManager.ThreadCount));
end;

procedure TForm1.ExecuteQueryWithErrorHandling;
var
  QueryThread: TDFQueryThread;
begin
  QueryThread := DFQueryManager.CreateQueryThread(
    ADOConnection1.ConnectionString,
    'SELECT * FROM NonExistentTable', // This will cause an error
    nil,
    DBGrid1,
    ADOQuery1,
    Self
  );
  
  // The thread will automatically show an error dialog,
  // but you can also implement custom error tracking or logging
end;

procedure TForm1.btnSearchClick(Sender: TObject);
begin
  // Show progress panel
  pnlProgress.Visible := True;
  
  // Execute query
  DFQueryManager.CreateQueryThread(
    ADOConnection1.ConnectionString,
    'SELECT * FROM LargeTable',
    nil,
    DBGrid1,
    ADOQuery1,
    Self
  );
  
  // You'll need to handle hiding the progress panel when the query completes
  // This could be done using a custom event or timer
end;