Как проверить наличие такой же записи в таблице PostgreSQL?

// Добавить товар.
procedure TForm2.Button4Click(Sender: TObject);
begin
  if not PQConnection1.Connected then begin
    MessageDlg('cwAdmin', 'Нет связи с сервером.', mtWarning,[mbOK], 0);
    exit;
  end;
  SQLQuery1.Active:=false;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM Products WHERE '+
  'sTkod LIKE '+LabeledEdit1.Text+' OR sTName ILIKE '+LabeledEdit1.Text+';');
  SQLQuery1.Open;
 
  // Что-то проверяю и если FALSE то добавляю новый товар, если TRUE, то вывожу сообщение, что такой товар уже имеется.
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  ProductCode, ProductName: string;
begin
  if not PQConnection1.Connected then begin
    MessageDlg('cwAdmin', 'Нет связи с сервером.', mtWarning, [mbOK], 0);
    exit;
  end;
 
  // Получаем значения из LabeledEdit для проверки
  ProductCode := LabeledEdit1.Text;
  ProductName := LabeledEdit2.Text; // Предположим, что наименование в LabeledEdit2
 
  SQLQuery1.Active := false;
  SQLQuery1.SQL.Clear;
  // Используем параметры для предотвращения SQL-инъекций
  SQLQuery1.SQL.Add('SELECT * FROM Products WHERE sTkod = :code OR LOWER(sTName) = LOWER(:name);');
  SQLQuery1.ParamByName('code').AsString := ProductCode;
  SQLQuery1.ParamByName('name').AsString := ProductName;
  
  SQLQuery1.Open;
 
  // Проверяем, есть ли результаты
  if SQLQuery1.IsEmpty then
  begin
    // Если нет, добавляем новый товар
    SQLQuery1.Active := false;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('INSERT INTO Products (sTkod, sTName) VALUES (:code, :name);');
    SQLQuery1.ParamByName('code').AsString := ProductCode;
    SQLQuery1.ParamByName('name').AsString := ProductName;
    SQLQuery1.ExecSQL; // Выполняем вставку
    
    MessageDlg('Товар успешно добавлен.', mtInformation, [mbOK], 0);
  end
  else
  begin
    // Если есть, выводим сообщение об ошибке
    MessageDlg('Товар с таким кодом или наименованием уже существует.', mtWarning, [mbOK], 0);
  end;
end;
Пояснения:

  // Получаем значения из LabeledEdit для проверки
  ProductCode:=LabeledEdit1.Text;
  ProductName:=LabeledEdit2.Text;
  // Используем параметры для предотвращения SQL-инъекций
  SQLQuery1.SQL.Add('SELECT * FROM Products '+
  'WHERE sTkod = :code OR LOWER(sTName) = LOWER(:name);');
  SQLQuery1.ParamByName('code').AsString:=ProductCode;
  SQLQuery1.ParamByName('name').AsString:=ProductName;
  SQLQuery1.Open;
  // Проверяем, есть ли результаты
  if SQLQuery1.IsEmpty then begin
    // Если нет, добавляем новый товар
    SQLQuery1.Active := false;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('INSERT INTO Products (sTkod, sTName) '+
    'VALUES (:code, :name);');
    SQLQuery1.ParamByName('code').AsString := ProductCode;
    SQLQuery1.ParamByName('name').AsString := ProductName;
    SQLQuery1.ExecSQL; // Выполняем вставку
    SQLTransaction1.Commit;
    SQLTransaction1.Options:=[]; // Очистить опции.
    SQLQuery1.Close;
    MessageDlg('cwAdmin', 'Товар успешно добавлен.', mtInformation, [mbOK], 0);
  end else begin
    // Если есть, выводим сообщение об ошибке
    MessageDlg('cwAdmin', 'Товар с таким кодом или (и) наименованием '+
    'уже существует.', mtWarning, [mbOK], 0);
  end;

  SQLQuery1.Active:=false;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM Products WHERE '+
  'sTkod = '''+LabeledEdit1.Text+''' OR '+
  'LOWER(sTName)=LOWER('''+LabeledEdit2.Text+''');');
  SQLQuery1.Open;
  if SQLQuery1.IsEmpty then begin
    SQLQuery1.Active:=false;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('INSERT INTO Products(sTkod, sTName) '+
    'VALUES('''+LabeledEdit1.Text+''', '''+LabeledEdit2.Text+''')');
    SQLQuery1.ExecSQL;
    SQLTransaction1.Commit;
    SQLTransaction1.Options:=[]; // Очистить опции.
    SQLQuery1.Close;
    ShowData(); // Показать данные.
    MessageDlg('cwAdmin', 'Товар успешно добавлен.', mtInformation, [mbOK], 0);
  end else
    MessageDlg('cwAdmin', 'Товар с таким кодом или (и) наименованием '+
    'уже существует.', mtWarning, [mbOK], 0);