[mak-karpov]

Код:

const Ex : set of char = [';',','...] //Запрещеныые сиволы
var i : integer;
begin
for i := 1 to length(edit1.text) do
    if edit1.text[i] in Ex then begin
        ShowMessage('Форма заполнена неверно');
        Break;
    end;
end;