//murattan
type
karakter=set of Char;
var
tipler:karakter;
begin
tipler:=['R','K','L','S','E','İ','P','T'];
//bilgi değişkeni içinde tipler değişkenindeki herhangi karakterden varmı.
//tabi bilgi değişkeni Char tipte olmalı
if bilgi in tipler then
ShowMessage('Vardır');