"Висяк" при попытке вывести на печать данных сразу же после их отправки в БД

...
  SQLTransaction1.Commit; // Совершить транзакцию (зафиксировать изменения).
  Form4.LoadDataReport(Tpu, Num1s); // Загрузить данные в отчёт.
  Form4.XPrint(); // Вывести на XPrinter.
...

// Убыл (записать в таблицу данные о убытии и проверка за счт "RETURNING *").
procedure TDataModule2.Departed();
var
  S: String;
  n: Integer;
  Year, Month, Day: Word;
  Huar, Min, Sec, MSec: Word;
  R: String; // Режим (А -автомат, Р - ручной, Рв - вес ручной.
begin
  if not DataModule2.PQConnection1.Connected then begin
    MessageDlg('CarWeights v02TA', 'Нет связи с сервером. Перезагрузите БД. '+
    'Обратитесь к администратору и доложите руководителю о весе убывшено '+
    'автомобиля.', mtWarning,[mbOK], 0);
    exit;
  end;
  if Form6.f6 then begin
    if INI.FHand then
      R:='Рв'
    else
     R:='Р';
  end else
    R:='А';
  DecodeDate(Tpu, Year, Month, Day);
  DecodeTime(Tpu, Huar, Min, Sec, MSec);
  Tpu:=EncodeDate(Year, Month, Day);
  Tpu:=Tpu+EncodeTime(Huar, Min, 0, 0);
  S:=FloatToStr(Tpu); // // Дата и время прибытия.
  n:=Pos(',',S);
  if n>0 then S[n]:='.';
  SQLQuery1.Active:=false;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('UPDATE '+INI.Tab+' SET '+
    'nU='+S+ // Дата и время убытыия в числовом формате.
    ', sDatU='+chr(39)+ FormatDateTime('ddddd',Tpu)+chr(39)+ // Дата убытия.
    ', sTimU='+chr(39)+FormatDateTime('t',Tpu)+chr(39)+ // Время убытия.
    ', fVesU='+Vpu+ // Вес при убитии.
    ', sVnU='+chr(39)+INI.Num+chr(39)+  // Номер весов.
    ', sRejU='+chr(39)+R+chr(39)+  // Режим.
    ', sOperU='+chr(39)+Oper+chr(39)+  // Оператор.
    ', fTara=CASE WHEN fVesP>='+Vpu+' THEN '+Vpu+' ELSE fVesP END'+ // Тара.
    ', fBrut=CASE WHEN fVesP>='+Vpu+' THEN fVesP ELSE '+Vpu+' END'+ // БРУТТО.
    ', fNetP=CASE WHEN fVesP>='+Vpu+' THEN fVesP-'+Vpu+' ELSE 0 END'+ // НЕТТО пр.
    ', fNetU=CASE WHEN fVesP>='+Vpu+' THEN 0 ELSE '+Vpu+'-fVesP END'+ // НЕТТО уб.
    ' WHERE '+
    '(sNum1='+chr(39)+Num1s+chr(39)+' OR sNum2='+chr(39)+Num1s+chr(39)+' '+
    'OR sNum1='+chr(39)+Num2s+chr(39)+' OR sNum2='+chr(39)+Num2s+chr(39)+') '+
    'AND nU=0 RETURNING *');
  try
    //--------------- Так рекомендуется осуществлять транзакции --------------
    if SQLTransaction1.Active then // Прервать транзакцию, если она активна.
      SQLTransaction1.EndTransaction;
    SQLTransaction1.Options:=[stoExplicitStart]; // Затребовать явный запуск
    // транзакции с помощью TSQLQuery.
    SQLTransaction1.StartTransaction; // Начать новый блок транзакции.
    SQLQuery1.Open; // Отправить запрос на сервер.
    if SQLQuery1.RecordCount = 0 then begin
      MessageDlg('CarWeights v02TA', 'Отсутствует информация о прибытии '+
      'автомобиля. Обратитесь к администратору и доложите руководителю о '+
      'весе убывающего автомобиля.'+#13+'Если же номера автомобиля "'+Num1s+
      '" и "'+Num2s+'", прочитанные камерами, содержат ошибку или при прибытии'+
      ' выла допущена ошибка в определении номеров, то исправьте номера '+
      'в ручном режиме (Управление/Исправить номер авто.).',
      mtWarning,[mbOK], 0);
        DataModule1.Rej:=10;
    end else begin
      SQLTransaction1.Commit; // Совершить транзакцию (зафиксировать изменения).
      if INI.Print then begin // Вывести чек на печать.
        Form4.LoadDataReport(Tpu, Num1s); // Загрузить данные в отчёт.
        Form4.XPrint();// Вывести на XPrinter.
      end;
    end;
    SQLTransaction1.Options:=[]; // Очистить опции.
    SQLQuery1.Close;
    ShowData(); // Показать данные.
  except
    MessageDlg('CarWeights v02TA', 'Првреждена база данных. Обратитесь к '+
    'администратору и доложите руководителю о весе убывающего '+
    'автомобиля.', mtError,[mbOK], 0);
  end;
end;

// Загрузить данные в отчёт.
procedure TForm4.LoadDataReport(t: TDateTime; Num: String);
var
  S, St, M, Mp: String;
  Year, Month, Day: Word;
  Huar, Min, Sec, MSec: Word;
  n, x, y: Integer;
  sz: TSize;
  col: Integer;
  f, fp: Single;
begin
  DecodeDate(t, Year, Month, Day); // Показать данные в основном окне.
  DecodeTime(t, Huar, Min, Sec, MSec);
  S:=FloatToStr(EncodeDate(Year, Month, Day)+EncodeTime(Huar, Min, 0, 0));
  n:=Pos(',',S);
  if n>0 then
    S[n]:='.';
  DataModule2.Filtr:=' WHERE (sNum1='+chr(39)+Num+chr(39)+
  'OR sNum2='+chr(39)+Num+chr(39)+') AND nU='+S;
  DataModule2.ShowData();
  Image1.Canvas.FillRect(0, 0, Image1.Width, Image1.Height); // Очистить чек.
  x:=(Image1.Width-ImageList1.Width) div 2; // Логотип.
  y:=20;
  ImageList1.Draw(Image1.Canvas, x, y, 0, true);
  Image1.Canvas.Font.Style:=[fsBold];  // Заголовок.
  Image1.Canvas.Font.Size:=12;
  S:=INI.Name; // Название организации.
  sz:=Image1.Canvas.TextExtent(S);
  x:=(Image1.Width-sz.cx) div 2;
  y:=y+ImageList1.Height+5;
  Image1.Canvas.TextOut(x, y, S);
  Image1.Canvas.Font.Style:=[];  // Параметры других строк.
  Image1.Canvas.Font.Size:=10;
  try
    Form1.RxDBGrid1.DataSource.DataSet.First; // Курсор в начало БД.
    for col:=0 to Form1.RxDBGrid1.DataSource.DataSet.FieldCount-1 do begin
      M:=Form1.RxDBGrid1.DataSource.DataSet.Fields[col].AsString;
      for n:=Length(M) downto 1 do  begin  // Удалить пробелы в конце строки.
        if M[n]=' ' then
          Delete(M, n, 1)
        else
          break;
      end;
      if(M<>'')and((col=5)or(col=11)or(col=15)or(col=16)or(col=17)or(col=18))
      then begin
        f:=StrToFloat(M);
        f:=RoundTo(f, DataModule1.Idot);
        M:=FormatFloat(DataModule1.Sdot, f);
      end;
      case col of
        0: begin
          S:='RFID:';
          y:=y+sz.cy+5;
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        1: begin
          S:='№1 авто.:';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        2: begin
          S:='№2 авто.:';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        3: St:=M; // Дата прибытия.
        4: begin
          S:='Прибыл:';
          Image1.Canvas.TextOut(20, y, S);
          M:=St+' '+M;
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        5: begin
          S:='Вес (кг):';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        9: St:=M; // Дата уьытия.
        10: begin
          S:='Убыл:';
          Image1.Canvas.TextOut(20, y, S);
          M:=St+' '+M;
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        11: begin
          S:='Вес (кг):';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        15: begin
          S:='Тара (кг):';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        16: begin
          S:='БРУТТО (кг):';
          Image1.Canvas.TextOut(20, y, S);
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
        end;
        17: begin  // Приход.
          fp:=f;
          Mp:=M;
        end;
        18: begin // Расход.
          S:='НЕТТО (кг):';
          Image1.Canvas.TextOut(20, y, S);
          if fp>f then begin
            M:=Mp;
            St:='Приход';
          end else
            St:='Расход';
          sz:=Image1.Canvas.TextExtent(M);
          Image1.Canvas.TextOut(206-sz.cx, y, M);
          sz:=Image1.Canvas.TextExtent(S);
          y:=y+sz.cy+2;
          Image1.Canvas.Font.Style:=[fsBold];
          sz:=Image1.Canvas.TextExtent(St);
          x:=(Image1.Width-sz.cx) div 2;
          Image1.Canvas.TextOut(x, y, St);
          Image1.Canvas.Font.Style:=[];
          y:=y+sz.cy+2;
        end;
      end;
    end;
    S:='Опер.: '+DataModule2.Oper;;
    Image1.Canvas.TextOut(20, y, S);
    sz:=Image1.Canvas.TextExtent(S);
    y:=y+sz.cy+2;
    S:=FormatDateTime('dd mmmm yyyy - hh:nn', Now);
    sz:=Image1.Canvas.TextExtent(S);
    x:=(Image1.Width-sz.cx) div 2;
    Image1.Canvas.TextOut(x, y, S);
  except
    MessageDlg('CarWeights v02TA', 'Данные в базе данных не обнаружены.',
      mtWarning,[mbOK], 0);
  end;
end;
// Вывести на XPrinter.
procedure TForm4.XPrint();
var
  MyPr: TPrinter;
  x, y: Integer;
  RR: TRect;
begin
  Printer.Title := 'Чек';  // Имя файла, отправленного на печать.
//---------------------------------
// Добавить новой зависимости через Проект -> Инспектор проекта ->
// -> Добавить новую зависимость -> Printer4Lazarus -> Ok
//---------------------------------
  MyPr:=Printer;  // Получаем доступ к глобальному объекту Printer.
  MyPr.SetPrinter('*');
  try
    MyPr:=Printer;  // Получаем доступ к глобальному объекту Printer.
    // Коэффициенты масштабирования изображения.
    x:= GetDeviceCaps(MyPr.Canvas.Handle, logPixelsX) div PixelsPerInch;
    y:= GetDeviceCaps(MyPr.Canvas.Handle, logPixelsY) div PixelsPerInch;
    MyPr.BeginDoc; // Начало печати
    // Отрисовка нашего изображения на виртуальной канве принтера.
    RR:=Rect(0, 0, Image1.Picture.Width * x, Image1.Picture.Height * y);
    MyPr.Canvas.StretchDraw(RR, Image1.Picture.Bitmap);
  finally
    MyPr.EndDoc; // Конец печати
  end;
end;

    SQLTransaction1.Commit; 
    SQLTransaction1.Options:=[]; 
    SQLQuery1.Close;
    Form4.LoadDataReport(Tpu, Num1s); 
    Form4.XPrint();

    ........
    SQLTransaction1.StartTransaction; // Начать новый блок транзакции.
    SQLQuery1.Open; // Отправить запрос на сервер.
    if SQLQuery1.RecordCount = 0 then begin
      SQLTransaction1.Rollback;
      MessageDlg('CarWeights v02TA', 'Отсутствует информация о прибытии '+
      ........
    end else begin
      SQLTransaction1.Commit; 
      .......

   procedure PrintOut(ACaption, AText);
   begin
      Image1.Canvas.TextOut(20, y, ACaption);
      sz:=Image1.Canvas.TextExtent(AText);
      Image1.Canvas.TextOut(206-sz.cx, y, AText);
      sz:=Image1.Canvas.TextExtent(ACaption);
      y:=y+sz.cy+2;
    end;
....
 10: begin
   PrintOut('Убыл:', St+' '+M);
  end;