Palavras reservadas

procedure TForm1.Button1Click(Sender: TObject);
var
  l: TStringList;
  i: Integer;
  ok: Boolean;
begin
  l:= TStringList.Create;
  // Carregue aqui a lista das suas palavras
  // ex: l.LoadFromFile(´reservedwords.txt´);
  ok:= True;
  try
    for i:= 0 to l.Count-1 do begin
      if (pos(AnsiUpperCase(l[i]), AnsiUpperCase(Edit1.Text))>0) then begin
        ok:= False;
        Break;
      end;
    end;
    if (ok) then begin
      // Não encontrou nenhuma palavra, então faz o que tem que ser feito
    end else begin
      ShowMessage(´Contém palavra inválida!´);
    end;
  finally
    FreeAndNil(l);
  end;
end;