[NumLock]

Код:

begin
  Query1.DatabaseName:='DBDEMOS';
  Query1.SQL.Text:='select * from country.db where capital like :param1';
  Query1.Prepare;
  Query1.ParamByName('param1').AsString:='M%';
  Query1.Open;
end;