Consulta con IBDataset

[gendelphi]

Código Delphi [-]
IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add('select *');
IBDataSet1.SelectSQL.Add('from Alumnos');
IBSataSet1.SelectSQL.Add('Where upper(Matricula) like :Matr');
IBDataSet1.ParamByName('Matr').AsString:=VarMatricula;
IBDataSet1.Open;