[delphi] char / string

[niquesca]

Salve ho un insieme dichiarato cosi

const insieme ['A','E','I'];

begin
StringaNome:=(edit1.text);
LunghezzaNome:= (length(edit1.Text));

for i:= 1 to LunghezzaNome do begin
StringaNome:=(edit1.text);
LunghezzaNome:= (length(edit1.Text));

for i:= 1 to LunghezzaNome do begin
carattere:= StringaNome[i];
if carattere in insieme then
showmessage('ok');

ma carattere deve essere di tipo chat, come faccio a convertire una stringa in char?
grazie