Filter文字列に「あ行で始まる名前」をセットするにはどうすればいいのでしょうか？

Dataset.Filter := '''YOMI = '' + ''あ*' or 'YOMI = ''い*' .....以下同じ...''';

みたいなことをやろうとしているのですが、’の数とか訳分からなくなってしまう厨です。

もっといい方法ありますか？