unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnStartMyThread: TButton;
    procedure btnStartMyThreadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
  private
    FCount: Integer;
    procedure UpdateLabel;
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnStartMyThreadClick(Sender: TObject);
begin
  // Запускаем поток. Ничего не ждём.
  TMyThread.Create(False);
end;

{ TMyThread }


procedure TMyThread.Execute;
var
  fdb: TpFIBDatabase;
  tran: TpFIBTransaction;
  q: TpFIBQuery;
begin
  FreeOnTerminate := True; // Объект потока уничтожится самостоятельно

  fdb := TpFIBDatabase.Create(...);
  tran := TpFIBTransaction.Create(...);
  q := TpFIBQuery.Create(...);
  try
    // 1. Настроить подключение к БД
    // 2. Настроить параметры транзакции
    // 3. Настроить запрос

    q.ExecQuery; // 4. Выполнить запрос

    // 5. Получаем результат выполнения запроса и сохраняем в поле FCount
    FCount := q.RecordCount;

    // 6. С помощью Syncronize обновляем элемент на форме
    Syncronize(UpdateLabel);
  finally
    q.Free;
    tran.Free;
    fdb.Free;
  end;
end;

procedure TMyThread.UpdateLabel;
begin
  Form1.Label1.Caption := IntToStr(FCount);
end;

end.