При выполнении запроса, зависает программа

unit main;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,Data.SqlExpr, Data.DbxSqlite, Datasnap.Provider,
  Datasnap.DBClient,Data.DBXCommon;
 
type
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
TMyThread = class(TThread) //MyThread - заданное нами имя потока.
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure UpdateContacts;
  end;
 
var
  Form1: TForm1;
  MyThread: TMyThread;
 
implementation
 
procedure TMyThread.UpdateContacts;
var
SQLConnection  : TSQLConnection;      // Поключение к базе sqlite
begin
     SQLConnection:= TSQLConnection.Create(Nil);
     SQLConnection.DriverName:='Sqlite';
     SQLConnection.Params.Values['Database']:='C:\Users\Администратор\Documents\RAD Studio\Projects\ITMagicNEW\Win32\Debug\data.db';
     SQLConnection.Params.Values['FailIfMissing']:='False';
     SQLConnection.Params.Values['ColumnMetaDataSupported']:='False';
     SQLConnection.LoginPrompt:=False;
     //SQLConnection.ExecuteDirect('PRAGMA auto_vacuum=1');
     SQLConnection.Connected:=true;
 
     SQLConnection.Execute('UPDATE contacts SET operator_id=(SELECT operator_id FROM ru_operator_data_new WHERE INSTR( SUBSTR( phone, 2 ) , ru_operator_data_new.oper_prefix)  =1 ORDER BY LENGTH( oper_prefix ) DESC LIMIT 1)',nil);
end;
 
 
//Нужно создать процедуру Execute, уже описанную в классе TMyThread
procedure TMyThread.Execute;
begin
Synchronize(UpdateContacts);
end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//Вначале нужно создать экземпляр потока:
  MyThread:=TMyThread.Create(False);
//Параметр False запускает поток сразу после создания, True - запуск впоследствии , методом Resume
//Далее можно указать параметры потока, например приоритет:
  MyThread.Priority:=tpNormal;
  MyThread.FreeOnTerminate:=True;
end;
 
end.