Analise o trecho de programa a seguir, escrito em Object Pascal.

procedure TFrmEmpregadoSQL.BbtPesquisaNomeClick(Sender:
TObject);
begin
if Edit2.Text <> ' ' then
begin
QrEmp.Close;
QrEmp.SQL.Clear;
QrEmp.SQL.Add('SELECT EmpNo,FirstName,LastName,Salary
FROM employee');
QrEmp.SQL.Add('WHERE UPPER(FirstName) LIKE :Nome');
QrEmp.ParamByName('Nome').AsString :=
UpperCase(Edit2.Text) + '%';
QrEmp.Open;
end;
end;

Com relação ao trecho acima, é correto afirmar que: