Файлы в Паскале

[Keshka]

мне нужен код в форме, не понимаю, как сделать эту задачу, недавно пришлось взяться за формы и до конца не могу разобраться

[Keshka]

  b:=['*','/','\','|','^',':','"',',','?','<','>'];
  s:= Edit1.Text;
  for i:=1 to length(s) do
    if  s[i] in b then
    begin
     label1.Caption:='false';
     end
     else
      label1.Caption:='true';
    if label1.Caption='true' then
      assignfile(f, s+'.dat');
      Rewrite(f);
    closefile(f);
end;

как проверить всю строку и только после этого вывести ''true'' и создать файл? а то получается, что проверив s[1] на допустимость символа, мы выводим ''true'' и создаем файл. как препод сказал: "если строка будет содержать 100 символов, то она будет создавать 100 файлов". хотя при запуске, (если нет недопустимых), создается один файл. но если вводим в строке * например, то программа выдает 123 ошибку. почему она возникает? ведь в лэйбле все равно написано "false"