2 действия одновременно

[bananasus]

Нафига вообще этот таймер?
Когда клацаеш кнопку должен запуститься отдельный поток в котором будет происходить запрос к базе.

Tpotok = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tpotok.Execute;
begin
  проверка по базе;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: Tpotok;
begin
  NewThread:=Tpotok.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
    
   Form2.Show;

end;